Al seleccionar item de combo cargar cajas de texto.

[carlunchos]

Buenas Sres, tengo una tabla access con 3 campos. Despues de batallar algunos minutos logre la conexion con la base y cargar los datos de un campo de la tabla en un combobox.
El codificado hasta ahora es el siguiente:

Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String
Dim dato As Integer


Set cn = New ADODB.Connection
'Establecemos la conexión y la abrimos
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\Peces\peces.mdb;"
cn.Open

sql = "select * from Tabla1"

Set rst = New Recordset
rst.Open sql, cn
dato = rst.RecordCount


Do While Not rst.EOF
Combo1.AddItem rst.Fields("Nombre")
rst.MoveNext
Loop
'rst.Close
End Sub


y en el evento click() del boton "Cargar Datos" lo siguiente:

Private Sub Command2_Click()

Text1.Text = Combo1.Text
'Text2.Text = rst_flag("Tipo")

End Sub

Como logro que en las 3 cajas de texto aparezcan los datos de los 3 campos que se corresponderan con con el registro que resulte luego de implementar el sql de acuerdo al item del combo que seleccioné?.
Todo esto en VB 6.0.

Saludos.