Private Sub DataGridFuellen()
 
  sSqlDataGrid = "SELECT Strasse, PLZ, Ort FROM Gebaeude WHERE" & _
    "R_Eigentuemer_Id=" & EigentuemerId
 
        With rstDataGrid
       ' Recordset-Objekt vom Typ sSqlGebEigentuemer öffnen.
       .Open Source:=sSqlDataGrid, _
            ActiveConnection:=ADOcn, _
            CursorType:=adOpenKeyset, _
            LockType:=adLockOptimistic, _
            Options:=adCmdText
 
 
            '1-spaltige Combobox füllen
            With DataGrid1
                ' Spaltenbreiten
 
                 Set .DataSource = rstDataGrid
 
             End With
 
         End With
 
    ' Speicher freigeben
    If Not rstDataGrid Is Nothing Then rstDataGrid.Close: Set rstDataGrid = _
      Nothing
 
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.