' Deklaration
Private Sub zeigeEditionenTest(cmb1 As ComboBox, cmb2 As ComboBox)
    Dim rstEdtionen As New ADODB.Recordset
    Dim strEdtionenSQL As String
 
    cmb1.Clear: cmb2.Clear
    strEdtionenSQL = "Select id, edition from Editionen;"
    Debug.Print strEdtionenSQL
    Set rstEdtionen.ActiveConnection = MeineConn
    With rstEdtionen
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open strEdtionenSQL 
    If Not .EOF And Not .BOF Then
        .MoveFirst
        Do While Not .EOF
             cmb1.AddItem Trim(.Fields("edition"))
             cmb2.AddItem .Fields("id")
            .MoveNext
        Loop
    End If
    End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de