幫忙看看一段登陸代碼，哪有錯？謝謝了！

shilixi

幫忙看看一段登陸代碼，哪有錯？謝謝了！
如下
Public Function login() As Boolean
Dim rs As New ADODB.Recordset
Dim strsql As String
strsql = "select 用戶名,密碼 from 密碼庫 where 用戶名=" & Me.cb1user
rs.Open strsql, CurrentProject.Connection, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
    If rs("密碼") = Me.TxtPwd Then
        login = True
    End If
End If
rs.Close
Set rs = Nothing
End Function
Private Sub cmdok_click()
If IsNull(Me.cb1user) Then
MsgBox "輸入用戶名！", vbCritical
Exit Sub
Else
Me.cb1user.SetFocus
p_username = Me.cb1user.text
End If
If login = True Then
  username = Me.cb1user.text
  DoCmd.Close
  DoCmd.OpenForm "主窗體"
  Else
  MsgBox "您輸入的密碼錯誤，請重新輸入，僅三次！", vbCritical
  Exit Sub
  End If

End Sub
Private Sub cmdCancel_Click()
DoCmd.Quit acQuitSaveNone
End Sub
Private Sub cbouser_notinlist(newdata As String, response As Integer)
response = acDataErrContinue
End Sub

總說至少一個參數(shù)沒被指定，然后rs.Open strsql, CurrentProject.Connection, adOpenStatic, adLockReadOnly這句話就變黃了，誰能教教我怎么改��？謝謝了，高手們！

tz-chf

用戶名缺單引號吧
沒必要用記錄集吧,dlookup好了