试试这个Dim adoCnn As New ADODB.Connection
Dim adoCmd As New ADODB.Command
Dim adoRst As ADODB.Recordset    Text1.Text = ""
    
    adoCnn.Open "dsn=pubs", "sa", "" '改为你自己的连接串
    
    adoCmd.ActiveConnection = adoCnn
    adoCmd.CommandText = "MySp"
    adoCmd.CommandType = adCmdStoredProc
    
    Set adoRst = adoCmd.Execute
    
    Text1.Text = adoRst.Fields(0).Value