llenar combo con datos de SQL

[SalomonSab]

Claro puedes hacer las dos cosas en el mismo form algo Asi:

Código:

Private Sub Form_Load()

if rs.State = 1 Then rs.Close
        rs.Open "SELECT DISTINCT PrimerCampo, SegundoCampo FROM TuTabla", cnn, adOpenStatic, adLockOptimistic
            Do While Not rs.EOF
                Combo1.AddItem rs.Fields("Aqui un dato")
                Combo2.AddItem rs.Fields("Aqui el otro")
                rs.MoveNext
            Loop

End Sub

Espero te sirva