Visual Basic - Ayuda a cargar Combobox

Hola,
Ocupo VB6, me conecto a access 2000 y quisiera que alguien me ayudara respecto a cargar una combobox, se que se deberia ocupar algun ciclo iterativo, pero las pruebas que he hecho no me han resultado... desde ya agradecido...
salu2 kronos..!

espero te sirva

Public Sub LlenaCombo(MiSql As String, Combo As ComboBox)
On Error GoTo Error
Set MiRecordSet = MiBaseDato.OpenRecordset(MiSql, dbOpenSnapshot)
Dim Dato As String
Dato = "*"
Combo.Clear
With MiRecordSet
If .RecordCount > 0 Then
.MoveFirst
Do While Not .EOF
If .Fields(0) <> Dato Then Combo.AddItem .Fields(0)
Dato = .Fields(0)
.MoveNext
Loop
.MoveFirst
End If
End With
MiRecordSet.Close
Set MiRecordSet = Nothing
Salir:
Exit Sub
Error:
MensajeError
Resume Salir
End Sub

Lo Probaré... muchas gracias por atender mensaje...
salu2 Kronos..!