geovanny21

Private Sub Buscar_Click() Call Abrir_BD Dim datos As String datos = "Select * from ARRENDADOR where cedula='" & cedula.Text & "'" Set Reg = Data.OpenRecordset(datos) If Reg.RecordCount > 0 Then Mostrar_Datos Else limpiar MsgBox ("La cedula no se...