Dim Tcn As New ADODB.Connection
Dim TR As ADODB.Recordset
Dim TR As ADODB.Recordset
Tcn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);UID=admin;DBQ=F:\sf.mdb "
Tcn.Open
'Tcn.Execute "exec newtest qqq,wwww"
Set TR = Tcn.Execute("exec qtest 'qqq'")
TR.MoveFirst
SM TR("test1")
SM TR("test2")
Set TR = Tcn.Execute("exec qtest 'qqq'")
TR.MoveFirst
SM TR("test1")
SM TR("test2")
为了够字数,得多加点东西