MAS CÓDIGOS

Private Sub cmdbuscar_Click()
  Dim buscado As String, criterio As String
  
  buscado = InputBox("¿Qué  Cliente desea buscar:?")
  If buscado = "" Then Exit Sub
  criterio = "Nombres 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 ("Empleado no encontrado")
    End If
  End If
End Sub

Private Sub cmdcancelar_Click()
Adodc1.Recordset.CancelUpdate
habilitarbotones
cmdguardar.Enabled = False
inhabilitarcajas
End Sub

Private Sub cmdeditar_Click()
habilitarcajas
inhabilitarbotones
cmdguardar.Enabled = True
cmdcancelar.Enabled = True
txtnit.SetFocus
End Sub

Private Sub cmdeliminar_Click()
Dim r As Integer
On Error GoTo RutinaDeError
r = MsgBox("¿Desea eliminar el registro?", vbYesNo, "Atención")
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
   Adodc1.Recordset.MoveLast
End If
Exit Sub
RutinaDeError:
 r = MsgBox(Error, vbOKOnly, "Se ha producido un error: ")
 Adodc1.Recordset.CancelUpdate
End Sub