[求助]ACCESS数据库的连接

dim ConStr as string
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
ConStr = "Provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\数据库\use.mdb"
cn.Open ConStr
cn.CursorLocation = adUseServer
rs.Open "select * from use ", cn, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then
If Text1.Text <> "" And Text2.Text <> "" Then
Set rs1 = New ADODB.Recordset
rs1.Open "select * from use where use_name='" & Text1.Text & " '"
运行至红色字时提示“连接无法用于此操作。在此上下问中他可能已被关闭或无效。”
将鼠标放置rs 变量上没有出现他的值，请问各位大虾，问题在哪呀。