Visual basic 6.0 y access 2007

Hola me gustaría saber un código para ingresar un nuevo registro desde visual basic 6.0 a una base de datos creada en access 2007.
Nota: solo me permite ingresar dos registros.
Para esta conexión utilizo un archivo de extensión (udl) más algo del siguiente código :
Private Sub buscar_Click()
Dim Buscado As String, Criterio As String
Buscado = InputBox("¿Que nombre quieres buscar?")
If Buscado = "" Then Exit Sub
Criterio = "vendedor Like  '*" & Buscado & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find Criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find Criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("No encuentro ese nombre")
End If
End If
End Sub