Private Sub Command1_Click()
 
    ' Welche neue (dynamische) Form soll erstellt werden
    dynDB_ID = 0
        ' Datenbank Pfad und DateiName festlegen
        dynDB_FileName = App.Path & "\eflager.mdb"
        ' SQL-Syntax für neue (dynamische) die festlegen
        dynDB_SQL = "SELECT Tabelle1.* FROM Tabelle1;"
        ' neue (dynamische) Form erzeigen
        Set dynDataGrid(dynDB_ID) = New frmDataGrid
        ' neue (dynamische) Form anzeigen
        dynDataGrid(dynDB_ID).Show
 
    ' Welche neue (dynamische) Form soll erstellt werden
    dynDB_ID = 1
        ' Datenbank Pfad und DateiName festlegen
        dynDB_FileName = App.Path & "\eflager.mdb"
        ' SQL-Syntax für neue (dynamische) die festlegen
        dynDB_SQL = "SELECT Tabelle1.IDNr, Tabelle1.Artikelbezeichnung FROM" & _
          "Tabelle1;"
        ' neue (dynamische) Form erzeigen
        Set dynDataGrid(dynDB_ID) = New frmDataGrid
        ' neue (dynamische) Form anzeigen
        dynDataGrid(dynDB_ID).Show
 
End Sub

Private Sub Form_Load()
 
    ' Objektverweis setzen
    Set cDataGrid(dynDB_ID) = New claDataGrid
 
    Form_Resize
 
    dynDataGrid(dynDB_ID).Caption = dynDataGrid(dynDB_ID).Caption & "(" & _
      dynDB_ID & ")"
 
    cDataGrid(dynDB_ID).SetDBcon dynDB_ID, dynDB_FileName, dynDB_SQL
 
End Sub
 
Private Sub Form_Resize()
 
    Me.Grid1.Width = Me.ScaleWidth
    Me.Grid1.Height = Me.ScaleHeight
    Me.Grid1.Refresh
 
End Sub

' Form-Objekte
Global dynDataGrid(1) As frmDataGrid
    ' Variablen deklarieren
    Public cDataGrid(1) As claDataGrid
        ' Datenbank-Objekte
        Public DB_Con(1) As ADODB.Connection
            Public DB_RS(1) As Recordset
'
Global dynDB_ID As Long
Global dynDB_FileName As String
Global dynDB_SQL As String

Private Sub Class_Initialize()
On Error Resume Next
 
    Set DB_Con(dynDB_ID) = New ADODB.Connection
        Set DB_RS(dynDB_ID) = New ADODB.Recordset
 
End Sub
 
Public Sub SetDBcon(DB_ID As Long, DB_FileName As String, DB_SQLsyntax As _
  String)
On Error Resume Next
 
    ' Con
    With DB_Con(DB_ID)
        .Provider = "Microsoft.Jet.OLEDB.4.0" ' Access2000
        .CursorLocation = adUseClient
        .Mode = adModeReadWrite ' adModeShareDenyNone
        .ConnectionString = DB_FileName
        .Open
    End With
 
    ' SQL
    With DB_RS(DB_ID)
        ' aktive Verbindung zuweisen
        Set .ActiveConnection = DB_Con(DB_ID)
        ' SQL Syntax an Recordset übergeben
        .Source = DB_SQLsyntax
        ' Tabelle öffnen
        .Open
    End With
 
    ' Grid
    With dynDataGrid(dynDB_ID).Grid1
        ' autom. Neuzeichnen des DataGrids unterbinden
        .LockUpdate True
        ' Recordset zuweisen
        .DataMode = Mode_Recordset
        ' Grid löschen
        .Clear True
        Set .Recordset = DB_RS(DB_ID)
        ' Neuzeichnen des DataGrids wieder aktivieren
        .LockUpdate False
        ' Grid Inhalt anzeigen
        .Refresh
    End With
 
End Sub
 
Private Sub Class_Terminate()
On Error Resume Next
 
        Set DB_RS(dynDB_ID) = Nothing
    Set DB_Con(dynDB_ID) = Nothing
 
End Sub

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