再次麻烦大家，帮我看看！报错误3709，实在没有办法啦！！

Question

Private Sub Adoopen(strTname As String, strTpass As String)
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\vb\数据库\NAME.mdb;Persist Security Info=False;User ID=Admin"
   
   rs.Open "Select * From Customers Where names = '" & strTname & "' And pass = '" & strTpass & "'"
     '运行到这里，就报实时错误3709，连接无法用于执行些操作,在此上下文中它可能已经被关闭或无效。
     'rs.open的问题出在哪，请帮我看看！！con.open已经打开，检查con.state=1.
     If rs.RecordCount <= 0 Then
        inbox = 3
        Winsock1(intMax).SendData inbox
        Else
            inbox = 1
            Winsock1(intMax).SendData inbox
            End If
            rs.Close
End Sub
已经在网上搜索了两天了，还是没有结果，帮我看看吧！！感谢！！

Answer 1

strsql="Select * From Customers Where names = '" & strTname & "' And pass = '" & strTpass & "'"  
if rs.state<>adstateclosed then rs.close
rs.open strsql,con,adopenkeyset,adlockreadonly

Answer 2

rs.open缺少参数
参考一下Ado手册