#search bottom

[annieprato]

BOTON Buscar Visual Basic 6.0

Private Sub Command2_Click()  Dim Cedula     Cedula = InputBox("Ingrese Cedula a Consultar")     If Cedula = Empty Then         Exit Sub     End If     Adodc1.Refresh     With Adodc1.Recordset         .Filter = ("Cedula='" & Cedula & "'")         If Not .EOF Then         Text1 = .Fields!Cedula         Text2 = .Fields!Nombre         Text3 = .Fields!apellido         DTPicker1 = .Fields!fecha_nac         Text4 = .Fields!telefono         Text12 = .Fields!edad         Combo1 = .Fields!sexo         Combo3 = .Fields!cargo         Text5 = .Fields!direccion         band = 1         Else             MsgBox "No Existe el Registro", vbCritical         End If     End With End Sub