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
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
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
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

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
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

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

[rpeare]

when are you getting the error, you have a bunch of different events in that list of code?

If you can define where it's breaking put in debug.print messages within the section it's breaking to find out which line it's breaking on.