Visual Basic - ACCES DUDAS

Private Sub consultar_Click()

 Dim strSQL As String

 Dim ValCustID As Integer

 ValCustID = Me.idx.Value

 strSQL = "SELECT Modelo " & "FROM Motores " & "WHERE id='" & ValCustID & "';"

Modelox.Value = strSQL

End Sub

Private Sub Consultar_Click()

Dim strSQL As String

Dim valCustID As Integer

valCustID = Me.consultaID.Value

strSQL = "Select Nombre from Motores where CustomerID=" & valCustID & ";"

'coneccion a esta base de datos

Dim db As Database

'recordset

Dim rs As DAO.Recordset

'donde guardaremos el resultado de la busqueda

Dim valor As String

'abrimos coneccion a db

Set db = CurrentDb()

'abrimos el recordset.

Set rec = CurrentDb.OpenRecordset(strSQL)

'verificamos si obtuvimos algun resultado

If rec.EOF = False Then

    'obtuvimos un resultado

    valor = rec("nombre")

Else

    'no hubo suerte.

    valor = ""

End If

'NOTA: txtOtroTexto - Este es el nombre del cuadro de texto donde quieres visualizar la informacion encontrada.

'le doy focus al cuadro de texto donde voy a visualizar el dato encontrado

Me.txtOtroTexto.SetFocus

'le asignamos el valor al cuadro de texto

Me.txtOtroTexto.Text = valor

'cerramos coneccion y recordset

db.Close

Set db = Nothing

Set rec = Nothing

End Sub