Ψάξιμο σε συγκεκριμένο πεδίο και εγραφή (vba)

[γιώργοςΚ]

Καλησπέρα σε όλους,

Στην βάση που φτιάχνω έχω τον πάρα κάτω κώδικα vba και για άλλη μια φορά χρειάζομαι την βοήθεια σας.

Private Sub cmdRegister_Click()

'Check value of Registration code in tblDbaseInfo to see if this matches value chosen in combo box

If Me.txtActKey.Value = DLookup("dbaseRegCode", "tblDbaseInfo") Then

lngMyRegKey = Me.txtActKey.Value

Me.txtPassword.Enabled = False
Me.Title2.Caption = "Verification key is correct.!!"

Me.activation = True
Me.trial = False
Me.ExpRegistration = Me.InstDate + 32
Me.ExpRegistration.Requery
Me.RegDays = 32
Me.RegDays.Requery

Forms!ftblLogin.Activated = True
Forms!ftblLogin.TrialMode = False


DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "frmLogon"

Else

Me.txtActKey.SetFocus
End IF

End Sub

Θα ήθελα λοιπόν να όταν τρέχει ο πάρα πάνω κώδικας να "ψάχνει" στον πιο πάνω πίνακα αλλά πχ στην δεύτερη εγραφή του "dbaseRegCode" . Δεν γνωρίζω πώς μπορώ να επιτύχω κάτι τέτοιο και θα εκτιμούσα άν μπορεί κάποιος φίλος να βοηθήσει.

Σας ευχαριστώ εκ προτέρων