Visual Basic - Como lo hago, no me sale

Les agradeceria si alguien puede decirme como hago lo siguiente.
Tengo un comboBox conectado a un Recordset de mi base de datos, me trae el campo nombre del registro de la base (Acces 2007) le puse al FRM tres text y necesito que cuando seleccione el nombre me traiga los otros campos del registro, no puede ser un data grid ya que tengo pegado uno, es un formulario de facturacion y el datagrid lo uso para los productos.
Muchas gracias

y... ¿cual es el problema de poner un segundo datagrid?

¿acaso tu VB está limitado a un solo datagrid por formulario?

Seguro se puede, pero no es lo que estoy preguntando, quiero saber como joraca cargo los text al seleccionar en el combo. Creo se debe poder pero no me sale, genero una variable V al recordset luego le pongo un bucle y asigno a v los nombres de los campos.
Algo asi
Dim V As ADOBD.Recordset
...
...
.....
V!Direccion = textDireccion
V.Update
y asi sucesivamente, pero no me los carga, Reapet, alguien sabe como?????
Gracias

La cuestión no es que alguien sepa como, por mucho que 'Reapetas'
La cuestión es que no sabes explicarte:

...y necesito que cuando seleccione el nombre me traiga los otros campos del registro. PUNTO, LO QUE VIENE A CONTINUACIÓN SOBRA (o no viene a cuento).

Fíjate si te explicas mal que el que te contestó mas abajo cree que lo que quieres es cargar el combobox

lo que tienes que hacer (en el evento Click del Combo) es una consulta a la tabla con un un Where campos a mostrar igual al nombre seleccionado en el combo y a continuación mustras los datos en los text.

.

Buen dia, sigo con este tema sin conseguir lo que quiero, alguien podria decirme que tendra mal este codigo, ya que no me reconose la consulta y no me carga los text. Muchas gracias

Private Sub cmbcliente_Click()
If cmbcliente = "" Then
Exit Sub
Else
Dim T As New ADODB.Recordset
T.Open "SELECT Ventas.idventa, ventas.Idcliente, Ventas.Condiva, Ventas.Numcuit, Ventas.Direccion+’’+Ventas.NomDepartamento FROM Clientes INNER JOIN Ventas ON Ventas.IdCliente = Clientes.IdCliente WHERE Ventas.idventa='" + idventa + "' ORDER BY 2", cn, adOpenStatic, adLockReadOnly, adCmdText
'Cargo los TextBox con los campos
textDireccion = T!direccion
textCondiva = T!Edad
textNumcuit = T!DNI
End If
End Sub

Espero que esta funcion te sirva

.
.
.

Call rsCargaCBX(FRMMAIN.cbxTipoCobre, "SELECT TIPO_COBRE FROM TABLA_TIPO_COBRE ORDER BY TIPO_COBRE", "TIPO_COBRE", Conec, False)
If FRMMAIN.cbxTipoCobre.ListCount > 0 Then FRMMAIN.cbxTipoCobre.Text = FRMMAIN.cbxTipoCobre.List(0)
.
.
.


Public Function rsCargaCBX(oCbx As ComboBox, cSql As String, rsField As Variant, cn As Connection, Optional lTrim As Boolean = True) As ComboBox

Dim rs As Recordset
oCbx.Clear
If lTrim Then
oCbx.AddItem " "
End If
Set rs = Nothing
Set rs = New Recordset
Set rs = CargaRS(cSql, cn)
If rs.RecordCount > 0 Then
Do While Not rs.EOF
oCbx.AddItem rsTGet(rs.Fields(rsField))
rs.MoveNext
Loop
End If
Set CargaCBX = oCbx
End Function