Visual Basic - Ayuda para mostrar contenido de campos

Hola programadores

Tengo varias cajas de texto y datacombos que al presionar el boton AGREGAR se listan en un MSHFlexGrid.

Mi problema es que cuando le hago click en una fila quiero que los datos se muestren en las casillas de texto y en el datacombo para modificar datos .

Las casillas de texto me lista perfectamente , pero el datacombo aparece vacio no se como hacer para que el dato que corresponde al datacombo se liste ???

Les envio el codigo del Mshflexgrid en el evento click

Private Sub flex_Click()

click_flex = 1
'captura el numero de la unidad
click = flex.TextMatrix(flex.Row, 0)

'buscamos datos de la unidad para motrar en los text
If rsmos.State = adStateOpen Then rsmos.Close
rsmos.Open "select * from unidad where numunidad='" & click & "'and codigolibro='" & txtcod.Text & "'", cn, adOpenStatic, adLockOptimistic

menuni.Text = rsmos!numunidad
dtfecha.Value = rsmos!fecharegistro
mepag.Text = rsmos!numpaginas

Dim codresp As String
' Dim nomresp As String

codresp = rsmos!codigoresp
'nomresp = rsmos!

'Ver bien esto con calma
'If rsresp_cargo.State = adStateOpen Then rsresp_cargo.Close
' rsresp_cargo.Open "select responsables.* , appaterno + ' ' + apmaterno + ' ' + nombres as todonom from responsables where codigoresp='" & rsmos!codigoresp & "'", cn, adOpenStatic, adLockOptimistic
' Set dcresp.RowSource = rsresp
' dcresp.ListField = "appaterno"
' dcresp.BoundColumn = "codigoresp"
End Sub

Graxias lissi

If GridD.TextMatrix(GridD.Row, 0) <> "" Then
'Buscar Tipo de Dato
Set Rs = New Recordset
Rs.Open "Select * From Tabla order by Campo0", cn, adOpenStatic, adLockReadOnly
vlPosicion = 0
Do While Not Rs.EOF
If Rs!id_Campo1 = GridD.TextMatrix(GridD.Row, 0) Then
CboCombo.ListIndex = vlPosicion
Exit Do
End If
vlPosicion = vlPosicion + 1
Rs.MoveNext
Loop
CboCombo.ListIndex = vlPosicion
Rs.Close

TxtCampo2 = GridD.TextMatrix(GridD.Row, 1)
TxtCampoN = GridD.TextMatrix(GridD.Row, N)
End If

CampoO = es el campo donde esta la informacion que vas a buscar

es una rutina que me ha funcionado muy bien... :)