Error: This Object Doesn't Contain The Automation Object 'recordsetclone'.

[eazy4me]

I'm not really familiar with Access, but after update the database from Office 1997 to office 2010 i got an error everytime i click a button. The error is:
This object doesn't contain the automation object 'RecordsetClone'.

Please help me.
This is the code:

Private Sub Knop148_Click()
On Error GoTo Err_Knop148_Click


    DoCmd.Close

Exit_Knop148_Click:
    Exit Sub

Err_Knop148_Click:
    MsgBox Err.Description
    Resume Exit_Knop148_Click
    
End Sub
CODE
Private Sub Clientselectie_Click()
On Error GoTo Err_Clientselectie_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Klanten"
    
    stLinkCriteria = "[Klant-ID]=" & Me![Klant-ID]
    DoCmd.Close
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Clientselectie_Click:
    Exit Sub

Err_Clientselectie_Click:
    MsgBox Err.Description
    Resume Exit_Clientselectie_Click
    
End Sub
CODE
Private Sub Nieuweklant_Click()
On Error GoTo Err_Nieuweklant_Click
    Dim stDocName As String
    stDocName = "Client"
    DoCmd.Close
    DoCmd.OpenForm stDocName
    DoCmd.GoToRecord , , acNewRec

Exit_Nieuweklant_Click:
    Exit Sub

Err_Nieuweklant_Click:
    MsgBox Err.Description
    Resume Exit_Nieuweklant_Click
    
End Sub

CODE
Sub Keuzelijst_met_invoervak153_AfterUpdate()
    ' De record zoeken die overeenkomt met het besturingselement
    Me.RecordsetClone.FindFirst "[NAAM] = " & Me![Keuzelijst met invoervak153]
    Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

CODE
Private Sub CLIENTNAAM_ZOEKEN_Click()
On Error GoTo Err_CLIENTNAAM_ZOEKEN_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_CLIENTNAAM_ZOEKEN_Click:
    Exit Sub

Err_CLIENTNAAM_ZOEKEN_Click:
    MsgBox Err.Description
    Resume Exit_CLIENTNAAM_ZOEKEN_Click
    
End Sub
CODE
Sub Keuzelijst_met_invoervak159_AfterUpdate()
    ' De record zoeken die overeenkomt met het besturingselement
    Me.RecordsetClone.FindFirst "[Klant-ID] = " & Me![Keuzelijst met invoervak159]
    Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

CODE
Private Sub Nieuwe_Client_Toevogen_Click()
On Error GoTo Err_Nieuwe_Client_Toevogen_Click
    
    Dim stDocName As String
    
    stDocName = "Nieuwe Klanten"
    DoCmd.Close
    DoCmd.OpenForm stDocName
    DoCmd.GoToRecord , , acNewRec

Exit_Nieuwe_Client_Toevogen_Click:
    Exit Sub

Err_Nieuwe_Client_Toevogen_Click:
    MsgBox Err.Description
    Resume Exit_Nieuwe_Client_Toevogen_Click
    
End Sub

 

[SOS]

You have to instantiate a recordset object for it like this:

Sub Keuzelijst_met_invoervak153_AfterUpdate()
   Dim rst As DAO.Recordset
    ' De record zoeken die overeenkomt met het besturingselement
   Set rst = Me.RecordsetClone
         rst.FindFirst "[NAAM] = " & Me![Keuzelijst met invoervak153]
    If Not rst.NoMatch Then
        Me.Bookmark = rst.Bookmark
    End If