试试这个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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货