Login system i Visual Basic og Access

Hej, jeg sidder og prøver at lave et loginsystem i VB hvor brugernavnene og passwords er gemt i en access database, men da jeg er rimelig meget n00b til VB, kan jeg ikke helt finde ud af det... Jeg har fået skrevet flg. kode:


Private Sub cmdEnter_Click()

Dim con As ADODB.Connection
Dim res As ADODB.Recordset

Dim myString As String
Dim strName As String
Dim strPass As String
Dim Message As String

Set con = New ADODB.Connection
Set res = New ADODB.Recordset

myString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"

con.Open (myString)
res.Open "UsrData", con, adOpenDynamic

UsrData.Refresh
strName = txtUser.Text
strPass = txtPwd.Text


Do Until UsrData.Recordset.EOF
If UsrData.Recordset.Fields(UserName).Value = strName And UsrData.Recordset.Fields(Password).Value = strPass Then
Me.Hide
frmUdlejning.Show
End Sub

Else
UsrData.Recordset.MoveNext
End If
Loop

MsgBox "Invalid password, try again!"

Login_Form.Show
txtUser.Text = ""
txtPwd.Text = ""

End Sub

__________________________________________________

Den bliver ved med at komme med en fejl om "Run time error 3265, elementet kan ikke findes i den samling der svarer til det anmodede navn eller ordenstal"

Og jeg fatter simpelthen ikke hvorfor det ikke virker, det er uanset om jeg skriver brugernavn og password rigtigt eller forkert, eller slet ikke noget...

Håber der er nogen der kan hjælpe ;-)