Public Sub DataGrid1_Click()
 
 On Error GoTo gehtned
 
        GebaeudeId = DataGrid1.Text
 
        strQuelle = "Gebaeude"
 
        Set rstGebaeude = New Recordset
        rstGebaeude.Open "SELECT * FROM Gebaeude WHERE Gebaeude_Id=" & _
          GebaeudeId, ADOcn, adOpenStatic
 
        With rstGebaeude
            frmGebaeude.text1(0).Text = .Fields("ObjektNr")
            frmGebaeude.text1(1).Text = .Fields("Name")
            frmGebaeude.text1(2).Text = .Fields("ObjektTyp")
            frmGebaeude.text1(3).Text = .Fields("Strasse")
            frmGebaeude.text1(4).Text = .Fields("PLZ")
            frmGebaeude.text1(5).Text = .Fields("Ort")
            frmGebaeude.text1(6).Text = .Fields("Hausmeister")
            frmGebaeude.text1(7).Text = .Fields("Baujahr")
...
End Sub
        End With

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.