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

**URL:** <https://forum.kirupa.com/t/error-3070-sql-dislikes-me-could-someone-please-enlighten-me/224414>\
**Category:** programming\
**Created:** [May 2, 2007, 6:50am UTC](https://forum.kirupa.com/t/error-3070-sql-dislikes-me-could-someone-please-enlighten-me/224414 "2007-05-02T06:50:00Z")\
**Posts on this page:** 1\
**Page:** 1

<div class="post-metadata">

**Author:** ![Jiruharudo](https://avatars.discourse-cdn.com/v4/letter/j/97f17d/32.png) [@Jiruharudo](https://forum.kirupa.com/u/Jiruharudo)\
**Post date:** [May 2, 2007, 6:50am UTC](https://forum.kirupa.com/t/error-3070-sql-dislikes-me-could-someone-please-enlighten-me/224414/1 "2007-05-02T06:50:00Z")

</div>

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:

```auto
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.

```auto

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

```