General :: VBA Select Query With Inserted Value

With the following VBA code, I'm trying to select the text value from a textbox and fill that in a query to select the code from a person. (a password only login).

However, I'm getting a run time error 3078 at the '' Set rs = db.OpenRecordset("strSQL")'' line.

Code:
Private Sub Tekst6_AfterUpdate()
Dim strSQL As String
Dim strBarcode As String
Set db = CurrentDb()
'strBarcode = Me.Tekst6
'MsgBox strBarcode

[Code] .....