Set modSevDataGrid.dynDB_MaxDatenRS = New ADODB.Recordset
        ' MaxDaten RecordSet (SQL)
        With dynDB_MaxDatenRS
            ' aktive Verbindung zuweisen
            Set .ActiveConnection = dynDB_Con(dynID)
            ' SQL Syntax an Recordset übergeben
            .Source = DB_SQLsyntax
            .CursorLocation = adUseClient
            ' Tabelle öffnen
            .Open "SELECT " & dynDB_Form(dynID).dynDB_Tabel & ".* FROM " & _
              dynDB_Form(dynID).dynDB_Tabel & ";", dynDB_Con(dynID), _
              adOpenStatic, adLockOptimistic
If Err.Number <> 0 Then modErrorReport.ErrProtokollSchreiben dynID, _
Err.Number & ": " & Err.Description
            dynDB_Form(dynID).stbStatusLeiste.Panels("EOF").Text = .RecordCount
            .Close
        End With
    Set modSevDataGrid.dynDB_MaxDatenRS = Nothing

*greetz*
Tim
.
http://www.DotNetWorld.de