这段程序总是出错,请帮忙!
Dim cn_1 As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs_1 As ADODB.Recordset
Dim strSql_1 As String
Set cn_1 = New ADODB.Connection
Set cmd = New ADODB.Command
cn_1.ConnectionString = "Provider=SQLOLEDB.1;" _
+ "Persist Security Info=false;Initial Catalog=xxx;Data Source=yyyy;user id=winhonor_KUCUEN;pwd=zzz" '广
cn_1.CursorLocation = adUseClient
cn_1.Open
cmd.ActiveConnection = cn_1
cmd.CommandText = "test1"
cmd.CommandType = adCmdStoredProc
Set rs_1 = cmd.Execute
If rs_1.RecordCount <= 0 Then
Exit Sub
End If
提示对象关闭时,不充许操作!
请各位帮助,哪里设置不对?
谢谢!