Originariamente inviato da Pinco Pallino 2
eppure lo fa...se vuoi ti posto il codice che uso per la connessione!
non serve che lo posti

io per esempio una combo stile 2 la carico normalmente così

codice:
Private Sub CaricaCombo()
On Error GoTo OUT

    gs_Sql = ""
    gs_Sql = gs_Sql & "SELECT U.TIPUNIT  " & vbCrLf
    gs_Sql = gs_Sql & "     , U.DESUNIT  " & vbCrLf
    gs_Sql = gs_Sql & "     , A.FLGDFT    " & vbCrLf
    gs_Sql = gs_Sql & "  FROM DEPO.VTBTPUT2 AS U    " & vbCrLf
    gs_Sql = gs_Sql & "     , DEPO.VTBLVUT1 AS A  " & vbCrLf
    gs_Sql = gs_Sql & " WHERE A.TIPUNIT = U.TIPUNIT  " & vbCrLf
    gs_Sql = gs_Sql & "   AND A.PROVUNIT = '" & s_Lavor & "'   " & vbCrLf
    gs_Sql = gs_Sql & "   AND U.CODAPST = " & e_apst & vbCrLf
    gs_Sql = gs_Sql & "ORDER BY A.FLGDFT DESC, U.TIPUNIT  "
    
    Combo1.Clear
    
    Set Rs = OpenRecordset(gs_Sql)
    If Not (Rs.BOF And Rs.EOF) Then
        Do Until Rs.EOF
            Combo1.AddItem Rs!Tipunit & " - " & Rs!Desunit
            Rs.MoveNext
        Loop
    End If
    Rs.Close
    Set Rs = Nothing
Exit Sub
OUT:
    Combo1.Clear
    Call GestErrore(Me.Name & ".CaricaCombo")
End Sub