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"
end if
