Public Sub Test()
 
    ' SQL
    With DB_RS
        .Close
        ' aktive Verbindung zuweisen
        Set .ActiveConnection = DB_Con
        ' SQL Syntax an Recordset übergeben
        .Source = "SELECT Tabelle1.IDNr, Tabelle1.Artikelbezeichnung FROM" & _
          "Tabelle1;"
        ' Tabelle öffnen
        .Open
    End With
 
    ' Grid
    With frmDataGrid.Grid1
        ' autom. Neuzeichnen des DataGrids unterbinden
        .LockUpdate True
        ' Recordset zuweisen
        Set .Recordset = DB_RS
        ' Neuzeichnen des DataGrids wieder aktivieren
        .LockUpdate False
        .Refresh
    End With
 
End Sub

Private Sub Form_Resize()
 
    frmDataGrid.Grid1.Width = frmDataGrid.ScaleWidth
    frmDataGrid.Grid1.Height = frmDataGrid.ScaleHeight
    frmDataGrid.Grid1.Refresh
 
End Sub

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