Metodo find usando campo clave de la tabla

He estado tratando de buscar y mostra registro en el formulario usando el metodo find o seek, he tratado varios modelos pero siempre hay algo que impide su funcionamiento.
Mi último Intento:
Private Sub IdVendedor_DblClick(Cancel As Integer)
Dim cnc As New ADODB.Connection
Dim rstCli As New ADODB.Recordset
Dim strCodigoCli As String
Dim bkm As Variant
Set cnc = CurrentProject.Connection
rstCli.Open "Maevend", cnc, adOpenKeyset, adLockReadOnly, adCmdTableDirect
With rstCli
strCodigoCli = "IdVendedor"
.Find strCodigoCli, , adSearchForward 'error de compilacion
If .EOF Then
MsgBox "Funcionario No Encontrado"
Else
Do While Not .EOF
bkm = .Bookmark
.Find strCodigoCli, 1, adSearchForward, bkm
Loop
End If
End With
rstCli.Close
cnc.Close
End Sub
No funciona me manda mensaje "error de compilacion indicado".
Si me pueden ayudar, estaré muy agradecido.
Atte. Eugenio Paz