VB 连接 sql server 错误

Question

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

Answer 1

rs2.Open sql2, Conn, adOpenKeyset, adLockOptimistic

Answer 2

rs2.Open sql2, Conn, 2, 3 

Answer 3

rs2.Open sql2, conn, 2, 3

Answer 4

rs2.Open sql2, Conn, adOpenKeyset, adLockOptimistic,adCmdText

Answer 5

rs2.Open 后面的参数设置不正确

Answer 6

楼主去装个ADO的帮助文档,引用了microsoft activex data objects ……就有了