' Mieter_Id, Nachname, Vorname aus Tabelle Mieter auslesen
  sSqlMieter_Id = "SELECT Mieter_Id, Nachname, Vorname FROM Mieter"
 
   With rstMieter_Id
        'Recordset-Objekt vom Typ sSqlWohnung öffnen.
       .Open Source:=sSqlMieter_Id, _
            ActiveConnection:=ADOcnWohnung, _
            CursorType:=adOpenKeyset, _
            LockType:=adLockOptimistic, _
            Options:=adCmdText
 
    ' Schleife über alle Datensätze
           Do Until .EOF
               '3-spaltige Combobox füllen
               With Combo2
                   ' Einträge hinzufügen
                  .AddItem rstMieter_Id.Fields(0) & " " & rstMieter_Id.Fields( _
                    1).Value & " " & rstMieter_Id.Fields(2).Value
               End With
               ' Ab zum nächsten Datensatz
               .MoveNext
           Loop
      End With

        With ADOrsWohnung
          '.AddNew    ' Wird nur für Neuanlegen eines Datensatzes gebraucht 
           ADOrsWohnung!R_Gebaeude_Id = Combo1
           ADOrsWohnung!R_Mieter_Id = Combo2
           ADOrsWohnung!Stockwerk = text1(0)
           ADOrsWohnung!Zimmer = text1(1)
           ADOrsWohnung!Flaeche = text1(2)
           ADOrsWohnung!privat = text1(3)
           ADOrsWohnung!gewerblich = text1(4)
           ADOrsWohnung.Update
           lblStatus.Caption = "Datensatz: " & CStr( _
             ADOrsWohnung.AbsolutePosition)
         End With
    End If

Gruss
Agnes

------------------------------------
Wenn wir heut gemeinsam starten
und wir alle viel erwarten,

denken wir an jedem Tag daran,
dass man es nur schaffen kann,

wenn wir fest zusammen stehen
und den Weg gemeinsam gehen.