Private Sub zeigeEditionen()
    Dim rstEdtionen As New ADODB.Recordset
    Dim strEdtionenSQL As String
    cmbEdition(0).Clear: cmbEdition(1).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
             cmbEdition(0).AddItem Trim(.Fields("edition"))
             cmbEdition(1).AddItem .Fields("id")
            .MoveNext
        Loop
    End If
    End With
End Sub

Private Sub zeigeEditionenTest(test As ComboBox)
    Dim rstEdtionen As New ADODB.Recordset
    Dim strEdtionenSQL As String
    test(0).Clear: test(1).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
             test(0).AddItem Trim(.Fields("edition"))
             test(1).AddItem .Fields("id")
            .MoveNext
        Loop
    End If
    End With
End Sub