enlazar datos desde un combo a textbox soy principiante

[carluchito]

buenos dias estoy realizando un programa donde tengo la tabla de access llamada sptec01 donde estan los campos serial, nombre, departamento y modelo.
ya disene el formulario en visual basic 6.0 y tengo un combobox donde se despliegan los distintos seriales que tengo almacenados en dicha tabla. he estado tratando de buscar en los distintos foros como hacer para que a medida que introdusca los datos del serial se desplieguen en los textbox nombre, modelo y departamento. este es el codigo que tengo hasta ahora y solo me funciona el combo box. agradezco de antemano su ayuda ya que no tengo experiencia en esto. gracias!!!!

este es el codigo:

Private Sub Form_load()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
' suponemos que la BD está en el mismo directorio que la aplicación
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\dcs.mdb"
rst.CursorLocation = adUseClient
rst.Open "SELECT * FROM sptec01", cnn, adOpenStatic, adLockOptimistic
With rst
Do Until .EOF
' suponemos que la columna a cargar es la primera
cboserial.AddItem .Fields(0)

.MoveNext
Loop
End With

End Sub

[lokoman]

Hola!!
Recomiendo lo siguiente:
1-Usa la conexion global en la seccion de declaraciones

Código vb:

Public cnn As ADODB.Connection
 

2-En el load

Código vb:

Set cnn = New ADODB.Connection
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\dcs.mdb"
 

3-Usa las consultas justo como llenas el combo, pero con esto adicional

Código vb:

Dim rst As ADODB.Recordset
   Set rst = New ADODB.Recordset
   rst.CursorLocation = adUseClient
   rst.Open "SELECT * FROM sptec01 WHERE SERIAL=" & CBOSERAL.TEXT, cnn, adOpenStatic, adLockOptimistic
   IF RST.EOF=FALSE THEN
      TXTNombre.TEXT=RST!NOMBRE
      TXTModelo.TEXT=RST!MODELO
      TXTDepartamento.TEXT=RST!DEPARTAMENTO
   ELSE
      TXTNombre.TEXT=""
      TXTModelo.TEXT=""
      TXTDepartamento.TEXT=""
   END IF