Option Explicit
Const DefaultWidth As Integer = 1000
Dim DB As DAO.Database
 
Private Sub Command1_Click()
    'Spalte1 verbreitern, so dass eine HScrollBar angezeigt wird
    sevGrid1.Columns("Spalte1").Width = sevGrid1.Width - sevGrid1.Columns( _
      "Spalte2").Width / 2
End Sub
 
Private Sub Command2_Click()
    'Spalte1 wieder auf Ausgangsgröße setzen
    sevGrid1.Columns("Spalte1").Width = DefaultWidth
    'Spalte2 ans Grid anpassen
    sevGrid1.Columns("Spalte2").AdjustWidthToGridSize
End Sub
 
Private Sub Form_Load()
    BuildGridInRecordSetMode
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    DB.Close
End Sub
 
Private Sub BuildGridInRecordSetMode()
    Set DB = DBEngine.OpenDatabase("C:\Datenbank.mdb")
    With sevGrid1
        .Clear True
        'Grid Eigenschaften setzen
        .ScrollBars = SB_AUTO
        .DataMode = Mode_Recordset
        'Spalten hinzufügen
        .ColumnAdd "Spalte1", "Spalte1", DefaultWidth, , , , , , SORT_NUMERIC
        .ColumnAdd "Spalte2", "Spalte2"
        'Grid füllen
        Set .Recordset = DB.OpenRecordset("SELECT Feld1, Feld2 FROM Tabelle;")
        'Grid Höhe setzen, so dass die unterste Zeile teilweise zu sehen ist
        .ScreenRows = .ScreenRows
        .Height = .Height - .RowHeight * Screen.TwipsPerPixelY / 2
        .Refresh
        .Columns("Spalte2").AdjustWidthToGridSize
    End With
End Sub

Immer noch auf der Suche nach dem "Tu's trotzdem"-Button...