Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
si estas utilizando el control ado lo puedes hacer asi
AdoVehiculos.RecordSource = "select * from T_Datos_Vehiculos where DNI Like '" & Trim(Text1) & "'% Order By DNI" AdoVehiculos.Refresh If AdoVehiculos.Recordset.RecordCount > 0 Then Msgbox "Encontrado" else Msgbox "No Encontrado" end if En caso de que no estes utilizando el control ado Dim Rs As ADODB.Recordset if Rs.State = adStateOpen Then Rs.Close Rs.CursorLocation = adUseClient Rs.CursorType = adOpenDynamic Rs.LockType = adLockOptimistic sql=""select * from T_Datos_Vehiculos where DNI Like '" & Trim(Text1) & "%'" Order By DNI" Rs.Open sql, cnbase If Rs.RecordCount > 0 Then Msgbox "Encontrado" else Msgbox "No Encontrado"