Public Sub cmdBearbeiten_Click()
  strQuelle = "Gebaeude"
 
 ' R_Eigentuemer_Id wird für Combo1 gebraucht
 If rstGebaeude.State = adStateOpen Then rstGebaeude.Close
 rstGebaeude.Open "SELECT R_Eigentuemer_Id FROM Gebaeude WHERE Gebaeude_Id =" & _
   WohnungR_Gebaeude_Id, ADOcn, adOpenStatic
 
 GebaeudeR_Eigentuemer_Id = rstGebaeude.Fields(0)
 
 If rstGebEigentuemer.State = adStateOpen Then rstGebEigentuemer.Close
 rstGebEigentuemer.Open "SELECT Nachname, Vorname FROM Eigentuemer WHERE" & _
   "Eigentuemer_Id =" & GebaeudeR_Eigentuemer_Id, ADOcn, adOpenStatic
 
 frmGebaeude.Combo1 = rstGebEigentuemer.Fields(0) & " " & _
   rstGebEigentuemer.Fields(1)
 
 
 If rstWohnungsdatenInfo.State = adStateOpen Then rstWohnungsdatenInfo.Close
 rstWohnungsdatenInfo.Open "SELECT * FROM Gebaeude WHERE Gebaeude_Id=" & _
   WohnungR_Gebaeude_Id, ADOcn, adOpenStatic
 
  ' das Recordset weitergeben
  frmGebaeude.text1(0).Text = rstWohnungsdatenInfo.Fields(2).Value     'Name
  frmGebaeude.text1(1).Text = rstWohnungsdatenInfo.Fields(3).Value     _
    'ObjektTyp
  frmGebaeude.text1(2).Text = rstWohnungsdatenInfo.Fields(4).Value     'Strasse
  frmGebaeude.text1(3).Text = rstWohnungsdatenInfo.Fields(5).Value     'PLZ
  frmGebaeude.text1(4).Text = rstWohnungsdatenInfo.Fields(6).Value     'Ort
  frmGebaeude.text1(5).Text = rstWohnungsdatenInfo.Fields(7).Value     _
    'Hausmeister
  frmGebaeude.text1(6).Text = rstWohnungsdatenInfo.Fields(8).Value     'Baujahr
 
  ADOrs.AbsolutePosition = 1
 
  Unload Me
End Sub

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.