Formulario de consulta

Estoy suponiendo que ya tienes el formulario con sus cuadro de texto para mostrar los campos y que sabes hacer y tienes una referencia a la biblioteca de objetos ADO, en mi ejemplo, yo tengo dos TextBox txtClave y txtNombre donde muestro los campos Clave y Nombre que están en una tabla llamada Clientes en una base de datos llamada Datos.mdb que esta en el mismo directorio de mi archivo, ademas cuatro botones Primero, Anterior, Siguiente y Ultimo para desplazarse por los registro, los botones de Agregar, Borrar o Modificar te quedan de tarea...
Option Explicit
Dim adoCon As New ADODB.Connection
Dim adoRst As New ADODB.Recordset
Private Sub cmdAnterior_Click()
adoRst.MovePrevious
If adoRst.BOF Then
adoRst.MoveFirst
End If
MostrarDatos
End Sub
Private Sub cmdPrimero_Click()
adoRst.MoveFirst
MostrarDatos
End Sub
Private Sub cmdSiguiente_Click()
adoRst.MoveNext
If adoRst.EOF Then
adoRst.MoveLast
End If
MostrarDatos
End Sub
Private Sub cmdUltimo_Click()
adoRst.MoveLast
MostrarDatos
End Sub
Private Sub UserForm_Initialize()
Dim strCon As String
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\Datos.mdb"
adoCon.CursorLocation = adUseClient
adoCon.Open strCon
adoRst.Open "SELECT * FROM Clientes", adoCon
If adoRst.RecordCount > 1 Then
MostrarDatos
Else
MsgBox "Sin datos"
Unload Me
End If
End Sub
Private Sub UserForm_Terminate()
adoRst.Close
adoCon.Close
Set adoCon = Nothing
Set adoRst = Nothing
End Sub
Private Sub MostrarDatos()
txtClave.Text = adoRst!Clave
txtNombre.Text = adoRst!Nombre
End Sub