vb 3709问题请教高手

Question

Dim sql As StringDim cnn As New ADODB.Connection
Dim rs As New ADODB.RecordIf Trim(Text1.Text) = "" Then
MsgBox "没有输入用户名", vbOKCancel + vbCritical
Text1.SetFocus
ElseIf Trim(Text2.Text) = "" Then
MsgBox "没有输入密码", vbOKCancel + vbCritical
Text2.SetFocus
Else
cnn.Open "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=kn;Data Source=127.0.0.1"
sql = "select * from mytable where myname='"&Trim(Text1.Text)&"' and mypass='"&Trim(Text2.Text)&"'"
rs.Open sql, cnn
   If Not rs.RecordCount > 0 Then
   Select Case MsgBox("用户名或密码错", vbOKCancel + vbCritical)
    Case vbOK
    Text1.Text = ""
    Text2.Text = ""
    Text1.SetFocus
    Case Else
    End
    End Select
    
    Else
    b = True
   End If
   
   
   End If
    各位高手帮看下，运行后报3709错误，指点下问题出在那

Answer 1

应该是cnn没有正确的打开，检查连接串是否正确！
还有你的代码前面是否加了 on error resume next?

Answer 2

感觉你的连接串怪怪的，你使用一个Adodc控件，由控件生成，并且连接测试成功之后，把生成的连接串拷贝出来，再把刚添加的adodc控件删除

Answer 3

Dim rs as Adodb.RecordSet '不应该 是 Adodb.Record