Set rstGebaeude = New Recordset
            rstGebaeude.Open "SELECT * FROM Gebaeude", ADOcn, adOpenStatic
            Max_Zaehler = rstGebaeude.RecordCount   ' Gibt die aktuelle Anzahl 
            ' von Datensätzen in einem Recordset-Objekt an.
        rstGebaeude.Close

 
        GebaeudeId = DataGrid1.Text ' Text der 1. Spalte der markierten Zeile 
        ' wird
                                    ' weitergegeben, in diesem Fall die Id
 
        Set rstGebaeude = New Recordset
        rstGebaeude.Open "SELECT * FROM Gebaeude WHERE Gebaeude_Id =" & _
          GebaeudeId, ADOcn, adOpenStatic
 
        If Not (rstGebaeude.BOF And rstGebaeude.EOF) Then
            mvBookMark = rstGebaeude.Bookmark      ' Merken des aktuellen 
            ' Datensatzes
        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.