Convert FindIt recordset from DAO to ADO

[Guest_imported]

Convert FindIt recordset from DAO to ADO

i want to convert from DAO to ADO the

following code:

Private Sub CboCompany_AfterUpdate()
Dim rs As Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "[ClientID] = " &

CboCompany.Value
If rs.NoMatch Then
MsgBox "Client Not Found"
Else
Me.Bookmark = rs.Bookmark

End If
End Sub
Can somebody help me?

 

[ucinv]

From what I know about ADO, there is no longer .findfirst. Additionally, you can't specify multiple fields in the .find statement. Also there is no longer a .nomatch. Your code would end up looking like this:

Private Sub CboCompany_AfterUpdate()
Dim rs As adodb.Recordset
Set rs = Me.RecordsetClone
rs.Find "[ClientID] = " & CboCompany.Value

If rs.eof Then
MsgBox "Client Not Found"
Else
Me.Bookmark = rs.Bookmark

End If
End Sub

Remember to set your references to ADO instead of DAO.