Cargar campos en un combobox vb6.0

[franko1809]

gracias tio faltaba en movenext por eso colapsaba

Código:

Dim rsCargo As Recordset

Private Sub Form_Load()
Set rsCargo = New Recordset
rsCargo.Open "SELECT * FROM cargo", dbConex, adOpenStatic, adLockOptimistic
'cargamos el datagrid
Set DataGrid1.DataSource = rsCargo
DataGrid1.MarqueeStyle = 4
End Sub

Private Sub Command1_Click()
Do Until rsCargo.EOF
'Combo1.AddItem rsCargo(1)
Combo1.AddItem rsCargo!nomcargo
rsCargo.MoveNext
Loop
End Sub

saludos