Private Sub Form_Load()
    Dim db As Object
    Dim dbConnection As Object
    On Error GoTo ErrorHandler
    Set dbConnection = CreateObject("DAO.DBEngine.36")
    Set db = dbConnection.OpenDatabase(App.Path & "\db1.mdb")
    With Me.sevGrid1
        .ColumnAdd "name"
        .ColumnAdd "pic"
        Set .Recordset = db.openrecordset("select Name from Tabelle1")
        .Refresh
    End With
Exit Sub
ErrorHandler:
    Stop
End Sub