vb 3709问题请教高手

Dim sql As String

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Record

If 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错误，指点下问题出在那

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

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

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