VB 连接 sql server 错误
Set Conn = New ADODB.Connection
connstr = "Driver={sql server};server=202.xxx.xxx.xxx;uid=sa;pwd=billing;database=SmartBilling"
'connsql.ConnectionString = strsql
'connsql.ConnectionTimeout = 10 '超时时间
Conn.Open connstr
'If conn.State = adStateOpen Then
Set rs2 = CreateObject("ADODB.Recordset")
sql2 = "select * from admin"
rs2.Open , sql2, Conn, 2, 3 <---这行提示错误实时错误‘-2147352571(80020005)’
If Not rs2.EOF Then
Do While Not rs2.EOF
'Text2.Text = rs2("autonum")
rs2.MoveNext
Loop
End If