enlazar datos desde un combo a textbox soy principiante

[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