Combo box a texbox

hadeska
13 de Julio del 2005
hola, gracias por ayurme, necesito si alguin sabe como pasar datos de un combo box a un texbox de la siguiente manera

'procedimiento que hice

Public Sub productos()
Dim sql1 As String
cboproducto.Clear
sql1 = "select campo1 from tabla1 where codigo = (select campo2 from tabla2 where campo3 = '" & Trim(cbocombo.Text) & "')"

DATA.rstabla.Open sql1, DATA.Connection1

With DATA.rstabla
If Not .EOF And Not .BOF Then
.MoveFirst
Do While Not .EOF
cbocombo.AddItem (!campo1)
.MoveNext
Loop
'cbocombo.ListIndex = 0
End If
End With

con ese procedimeinto logro que el combo1 se llene y con los datos de este me llene el combo 2

ahora lo que quiere es que el combo 2 me llene un texbox con los datos que apareces, es decir:

combo1 llena combo2 y combo2 llene a texbox

espero que me entiendan gracias
DATA.rsgeneral.Close
Public Sub productos()
Dim sql1 As String
cboproducto.Clear
sql1 = "select producto from generales where codigo = (select codigo from partidas where partida = '" & Trim(cbopartidas.Text) & "')"

DATA.rsgeneral.Open sql1, DATA.Connection1

With DATA.rsgeneral
If Not .EOF And Not .BOF Then
.MoveFirst
Do While Not .EOF
cboproducto.AddItem (!producto)
.MoveNext
Loop
'cboproducto.ListIndex = 0
End If
End With


DATA.rsgeneral.Close