2 tablas en SQL y una consulta en VB

Hola Disculta que te vuelta a molestar!
Tengo 2 tablas Marca (de automóvil) y Vehículo (datos del automóvil)
idMarca<span style="white-space: pre;"> </span>nombre
01<span style="white-space: pre;"> </span>ford
02<span style="white-space: pre;"> </span>fiat
idVehiculo<span style="white-space: pre;"> </span>idMarca<span style="white-space: pre;"> </span>Color
1098<span style="white-space: pre;"> </span>01<span style="white-space: pre;"> </span>verde
1099<span style="white-space: pre;"> </span>02<span style="white-space: pre;"> </span>rojo
si en un txt coloco el idVehiculo, en otro txt me debería colocar el nombre de la marca (no idMarca)
código------------------------------------------------------------
Private Sub cmdBuscarMotor_Click()
Set rsAdmVehiculo = New ADODB.Recordset
rsAdmVehiculo.Open "select * from Vehiculo ", CNSQL, adOpenDynamic, adLockOptimistic
rsAdmVehiculo.Find "NMotor='" & txtNMotor.Text & "'"
txtNMotor.text=rsAdmVehiculo("idNMotor")
[size= 11.6667px]txtColor.Text = rsAdmVehiculo("Color")[/size]
txtMarca.Text = rsAdmVehiculo("idMarca")  ACA QUIERO PASAR EL NOMBRE DE LA MARCA NO EL ID
----------------------------------------------------------------------
¿TEngo qué volver a hacer una consulta para buscar el nombre de la marca para que me lo devuelva en el txt? ¿Esto implicaría mucha linea de código innecesario?
¿Existe otra forma?
Desde ya muchas gracias!