提示错误：至少一个参数没有被指定值

提示错误：至少一个参数没有被指定值
代码： rs.Open sql, conn, 1, 1全部代码如下Option Explicit
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Dim connstr As String
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password='';Data Source=" & App.Path & "\db.mdb"
conn.Open connstrIf Text1.Text = "" Then
    MsgBox "用户名不能为空!", vbOKCancel
End If
If Text2.Text = "" Then
    MsgBox "密码不能为空!", vbOKCancel
End If
'Set g_Recordset = CreateObject("ADODB.Recordset")
    Dim sql As String
    'Dim rs As Recordset
    
    sql = "SELECT * FROM admin WHERE adminuser='" & Text1.Text & "'"
    rs.Open sql, conn, 1, 1
    If rs.RecordCount = 0 Then
        MsgBox "数据库中无任何用户!", vbOKCancel
    Else
        If rs.Fields("adminuser") = Text1.Text Then
            If rs.Fields("adminpass") = Text2.Text Then
                MsgBox "登陆成功!", vbOKCancel
                rs.Close
                
            Else
                MsgBox "密码出错!", vbOKCancel
                rs.Close
            End If
        Else
            MsgBox "用户不存在!", vbOKCancel
            rs.Close
        End If
    End If
End SubPrivate Sub Form_Unload(Cancel As Integer)
    Set conn = Nothing
    Set rs = Nothing
End Sub