Consulta base de datos

Hola que tal espero que ta cuerdes de mi, pues no se site acuerdas del error que tenia de que no hay ningún registro activo, pues me canse tanto que mejor busqque otro método para la consulta, y encontré este código y lo mofifique al mio:
If KeyAscii = 13 Then
Set BUSQUEDA = New ADODB.Recordset
sql = "SELECT * FROM SCTMCAM WHERE CAMION LIKE '" & Text1.Text & "%'"
BUSQUEDA.Open sql, bd, adOpenDynamic, adLockOptimistic
If Not BUSQUEDA.EOF Then
Text1.Text = Data1.Recordset!CAMION
Text2 = Data1.Recordset!MARCA
Text20.Text = Data1.Recordset!PROPIETARI
Text6.Text = Data1.Recordset!MOTOR
Text7.Text = Data1.Recordset!TRANSMISIO
Text8.Text = Data1.Recordset!DIFERENCIA
Text9.Text = Data1.Recordset!RODADA
Text10.Text = Data1.Recordset!SERIEMOTOR
Text11.Text = Data1.Recordset!SERIECHASI
Text12.Text = Data1.Recordset!CAPACIDAD
Text14.Text = Data1.Recordset!POSICIONES
Text13.Text = Data1.Recordset!MODELO
Text3.Text = Data1.Recordset!PLACA
'Text24.Text = Data1.Recordset!ANCHO
'Text25.Text = Data1.Recordset!ALTO
'Text26.Text = Data1.Recordset!LARGO
Text17.Text = Data1.Recordset!RENDIMVACI
Text16.Text = Data1.Recordset!RENDIM
Text18.Text = Data1.Recordset!KMINI
Text19.Text = Data1.Recordset!KMACUMU
'Text4.Text = Data1.Recordset!KMREC
'Text21.Text = Data1.Recordset!ASEGURADORA
'Text22.Text = Data1.Recordset!POLIZANUM
'Text23.Text = Data1.Recordset!VPINI
'Text28.Text = Data1.Recordset!VPFIN
Text15.Text = Data1.Recordset!OBSERV
Else
MsgBox ("No hay registro")
End If
End If
y ahora no me arroja el error de que no hay ningun registro activo pero si existe el registro me manda al primer registro y no al registro que consulte, no se a lo mejor mi error esta en como cargo los campos a las cajas de texto, si es asi cono lo tengo en el codigo o como se le hace para cargar los datos a la caja de texto del registro que se encontro?