caricare una combo

[Markho]

prova così:

Private Sub Carica_Combo()
    Combo3.Clear
    If Not Data2.Recordset.EOF And Not Data2.Recordset.BOF Then
        Data2.Recordset.MoveFirst
        Do While Not Data2.Recordset.EOF
            Combo3.AddItem (Data2.Recordset("nome del campo"))
            Data2.Recordset.MoveNext
        Loop
    End If
End Sub

il primo if serve a controllare che la tabella non abbia 0 record, altrimenti potebbe farti casini...

in + scollega la text dal Rec set