hader sql ,,,,,

HEj !
Nu er jeg igen i den situation at min sql ikke virker. Den fejler i set rec = xx , " der mangler en operator"

Dim rec As DAO.Recordset
Dim sql As String
Dim db As Database

sql = "SELECT * FROM [TA_K_kunder] WHERE adr =  " & Me.Adr1
Set db = CurrentDb()
Set rec = db.OpenRecordset(sql, dbOpenDynaset, dbReadOnly)

If rec.Fields("adr") = Me.Adr Then
MsgBox "Denne addresse er oprettet for kunde" & rec.Fields("Fornavn") & " " & rec.Fields("Efternavn")
Else
End If