Realice la Base de datos en Acces, la del ejemplo se llama bd3.mdb, y la tabla cliente.
Diseñe el formulario Clientes. Agregue Cuatro (4) botones de comando, dejar el Command1 y el Command2, sin la propiedad del Caption. Escribir en la propiedad del Command3 y Command4, Modificar y Eliminar respectivamente. Añada un control Data.
Nota: En la propiedad del Data hacer el enlace a la base de datos realizada en Acces, en la opción Data Base Name, y en el RecordSource elegir la tabla a programar en el formulario. En la propiedad Visible establecer el valor a False.
Private Sub Combo1_Click()
Dim rsetcliente As Recordset
Dim dbs As Database
Dim clave As Boolean
Set dbs = OpenDatabase("d:\yamel\bd3.mdb")
Set rsetcliente = dbs.OpenRecordset("select * from cliente Order By cedula")
If Command1.Caption = "&Nuevo" Then
clave = False
While (Not (rsetcliente.EOF) And Not clave)
If Combo1.Text = rsetcliente!cedula Then
Text1.Text = rsetcliente!nombres
Text2.Text = rsetcliente!direccion
Text3.Text = rsetcliente!telefono
Text5.Text = rsetcliente!estado_civil
Text6.Text = rsetcliente!e_mail


clave = True
Else
If Combo1.ListIndex <> 0 And Combo1.Text = rsetcliente!cedula Then
Text1.Text = rsetcliente!nombres
Text2.Text = rsetcliente!direccion
Text3.Text = rsetcliente!telefono
Text5.Text = rsetcliente!estado_civil
Text6.Text = rsetcliente!e_mail
clave = True
Else
rsetcliente.MoveNext

End If
End If
Wend
Command3.Enabled = True
Command4.Caption = "&Cancelar"
Command1.Enabled = False
Command2.Enabled = True

Else
If Command1.Caption = "&Agregar" Then
Command2.Enabled = False
End If
End If
End Sub
Private Sub Command1_Click()
Dim dbs As Database
Dim a As Integer
Dim rsetcliente As Recordset
Dim mensaje As String
Dim mensaje2 As String
Dim xFichaId As String
Dim clave As Boolean
Set dbs =