variabele als criterium bij DMax

[nouland]

Private Sub Ontvangstdatum_GotFocus()
Dim stra, strb, strc, strd, stre, strdat As String
Dim strjaar1, strjaar2 As String

strjaar1 = "2010"
strjaar2 = "2010*"
strdat = Right(Date, 4) + "*"
stra = DMax("Reparatieaanvraagnr", "werkorders", "left(Reparatieaanvraagnr,4)='2010'")
strb = DMax("Reparatieaanvraagnr", "werkorders", "left(Reparatieaanvraagnr,4)='strjaar1'")
strc = DMax("Reparatieaanvraagnr", "werkorders", "left(Reparatieaanvraagnr,4)='strdat'")

strd = DMax("Reparatieaanvraagnr", "werkorders", "Reparatieaanvraagnr Like '2010*'")
stre = DMax("Reparatieaanvraagnr", "werkorders", "Reparatieaanvraagnr Like 'strjaar2'")

End Sub

stra, strb, strc, strd, stre zouden allemaal dezelfde waarde moeten hebben (volgens mij). stra en strd geven allebei de juiste waarde, de andere 3 geven als waarde Null. Ik wil in het criterium geen vast jaartal hebben, maar een variabele. Zet ik ergens een ( [ , ; " ' of een ander teken niet juist?
Wie weet het?
vrgr
Dick

Niemand die hier iets zinnigs over kan zeggen?

Bij een ander forum heeft Hans Bronkhorst de oplossing gegeven:

strb = DMax("Reparatieaanvraagnr", "werkorders", "left(Reparatieaanvraagnr,4)=" & [strjaar1])

Mijn vraag is dus opgelost