"Error 3070" SQL dislikes me, could someone please enlighten me?

programming
1

Greetings fellow Kirupians, and thanks for reading this. ^^

I made a little database with a side of SQL, …and it worked perfect.

That is untill I fiddled with the last piece:

End Sub
Private Sub Keuzelijst_met_invoervak52_AfterUpdate()
    ' De record zoeken die overeenkomt met het besturingselement
    Dim rs As Object
    Set rs = Me.Recordset.Clone
  rs.FindFirst "[[COLOR=red]**voornaam**[/COLOR]] = '" & Me![Keuzelijst met invoervak52] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

It gives me a 3070 error if I use the search function I made…
Apparantly “[COLOR=red]Voornaam[/COLOR]” can’t be reconissed as a ‘fieldname’.
And I cant seem to figure it out whats wrong…

Here’s all the code me thinks…
If anyone can tell what I did wrong, please, enlighten me.


Option Compare Database
Private Sub Knop46_Click()
On Error GoTo Err_Knop46_Click
 
    DoCmd.GoToRecord , , acFirst
Exit_Knop46_Click:
    Exit Sub
Err_Knop46_Click:
    MsgBox Err.Description
    Resume Exit_Knop46_Click
 
End Sub
Private Sub Knop47_Click()
On Error GoTo Err_Knop47_Click
 
    DoCmd.GoToRecord , , acPrevious
Exit_Knop47_Click:
    Exit Sub
Err_Knop47_Click:
    MsgBox Err.Description
    Resume Exit_Knop47_Click
 
End Sub
Private Sub Knop48_Click()
On Error GoTo Err_Knop48_Click
 
    DoCmd.GoToRecord , , acNext
Exit_Knop48_Click:
    Exit Sub
Err_Knop48_Click:
    MsgBox Err.Description
    Resume Exit_Knop48_Click
 
End Sub
Private Sub Knop49_Click()
On Error GoTo Err_Knop49_Click
 
    DoCmd.GoToRecord , , acLast
Exit_Knop49_Click:
    Exit Sub
Err_Knop49_Click:
    MsgBox Err.Description
    Resume Exit_Knop49_Click
 
End Sub
Private Sub Knop50_Click()
On Error GoTo Err_Knop50_Click
 
    DoCmd.GoToRecord , , acNewRec
Exit_Knop50_Click:
    Exit Sub
Err_Knop50_Click:
    MsgBox Err.Description
    Resume Exit_Knop50_Click
 
End Sub
Private Sub Knop51_Click()
On Error GoTo Err_Knop51_Click
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Knop51_Click:
    Exit Sub
Err_Knop51_Click:
    MsgBox Err.Description
    Resume Exit_Knop51_Click
 
End Sub
Private Sub Keuzelijst_met_invoervak52_AfterUpdate()
    ' De record zoeken die overeenkomt met het besturingselement
    Dim rs As Object
    Set rs = Me.Recordset.Clone
  rs.FindFirst "[voornaam] = '" & Me![Keuzelijst met invoervak52] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub