Private Sub DataGridFuellen()
 
 ' Recordset wird geschlossen, wenn es noch offen ist
 If rstGebEigentuemer.State = adStateOpen Then rstGebEigentuemer.Close     _
   => eingefügt
 
    sSqlGebEigentuemer = "SELECT Strasse, PLZ, Ort FROM Gebaeude WHERE" & _
      "R_Eigentuemer_Id=" & EigentuemerId
 
        With rstGebEigentuemer
       ' Recordset-Objekt vom Typ sSqlGebEigentuemer öffnen.
       .Open Source:=sSqlGebEigentuemer, _
            ActiveConnection:=ADOcn, _
            CursorType:=adOpenKeyset, _
            LockType:=adLockOptimistic, _
            Options:=adCmdText
 
 
         ' ?
 
             ' DataGrid1 füllen
             With DataGrid1
 
                 Set .DataSource = rstGebEigentuemer
 
             End With
 
         End With
 
' Speicher freigeben
    If Not rstDataGrid Is Nothing Then rstDataGrid.Close: Set rstDataGrid = _
      Nothing            => gelöscht
 
 
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.