Visual Basic - Llenar Combobox

Hola, mil disculpas por una pregunta que quizas resulte simple. Estoy aprendiendo de forma autodidacta a usar VB6. Tengo una base de datos en access 97 llamada "Ubigeo", en ella esta la tabla "Distritos" y en ella el campo "Ldist", que tiene 44 registros.

En VB6 tengo un formulario llamado "Presentacion" y en el he colocado un comobox llamado "comodist". Me gustaria saber el codigo que deberia usar para que al abrir el formulario se llene automaticamente con los 44 registros nombreado. Intente colocando un control "data" al formulario que asocie la base de datos pero me muestra solo un registro por vez. Gracias

Karla

Hola Karlita....

Te envio el siguiente procedimiento a ver si te es util...

Declara una variable en formulario
ejemplo:

Dim rsAdo1 As New ADODB.Recordset

Luego llamas a una funcion que en este caso yo la tengo como
"LlenarDataCombos"

y la pasas como parametro, el rsAdo1
el nombre del DataCombo, en este caso "comodist"
y luego la consulta en este caso
SQL="Select ldist, descripcion from Distritos order by descripcion"

LlenarDataCombos rsAdoNivel1, Me.comodist, SQL, 0

La funcion es esta:

Sub LlenarDataCombos(ADO As ADODB.Recordset, DTC As DataCombo, SQL As String, LField As Integer)

Set ADO = New ADODB.Recordset

If ADO.State = 1 Then ADO.Close
ADO.Open SQL, cn, adOpenDynamic, adLockBatchOptimistic

Set DTC.RowSource = ADO
DTC.BoundColumn = ADO.Fields(LField).Name
DTC.ListField = ADO.Fields(LField + 1).Name

End Sub

Esto deberi de funcionarte...
Yo de esta forma lleno mis datacombos, es super facil y rapido..

Saludos,
Ricardo

Hola Ricardo, muchas gracias por tu super rapida respuesta. un besote, cualquier duda te aviso.

Karla

Jajajaj, por apurada llene el encabezado con los datos de mi hermanito (materno). Ese pesado para metido en esta pagina pero se dedica al excel. Es un aburrido jijijiji.

Disculpen

Karla

jajajaj y cuantos hermanitos (maternos) más tenés.
porke seguro que (paternos) tendrés bastantes más porke ni en los apellidos os conoseis
debereis ser una familia muy feliz , juajuajua....