Private Function CheckLogin(Name As String, Pwd As String) As Long
On Error GoTo LoginErr
Dim cnDB As Connection
Dim Rs As Recordset

Set Rs = New Recordset

Rs.Open "Select Name,Paseword from Users where Name='" & Name & "'", cnDB, adOpenForwardOnly, adLockReadOnly

If Rs.RecorCount = 0 Then //是这句话报的错
Rs.Close
Set Rs = Nothing
CheckLogin = 1 '无次用户
Exit Function
End If

If Rs!Password <> Passwoed Then
CheckLogin = 2
Else
CheckLogin = 0
End If

Rs.Close
Set .Rs = Nothing

Exit Function
LoginErr
Rs.Close
Set Rs = Nothing
CheckLogin = 3

End Function

我疏忽了，谢谢帮我解决