sql med to kriterie

HEj !
hvordan får jeg det her til at virke?

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


    sql = "SELECT * FROM vare/auktion WHERE Aktionsnummer = me.aktionummer and  varenummer = me.varenummer "

    Set db = CurrentDb()
    Set rec = db.OpenRecordset(sql, dbOpenDynaset)
    Do
    rec.Edit
    rec.Fields("katnr") = Me.katnr
    rec.Update
    Exit Do
    Loop

End Sub----------------------------------