Option Explicit
Private db As DAO.Database
 
Private Sub Form_Load()
    Set db = DBEngine.OpenDatabase(App.Path & "\db1.mdb")
    With sevGrid1
        .DataMode = Mode_Recordset
        .AllowEdit = False
        .AllowDelete = False
        .BalloonTip = True  'BalloonTips einschalten
        .ToolTipIcon = ttInfoIcon
        Set .Recordset = db.OpenRecordset("SELECT * FROM Tabelle1;")
        .Refresh
   End With
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    db.Close
End Sub
 
Private Sub sevGrid1_OnMouseMove(ByVal nRow As Long, ByVal nCol As Long, _
         ByVal Button As Integer, ByVal Shift As Integer, sToolTip As String)
    With sevGrid1
        .ToolTipTitle = .Text(nRow, 2)
        .ToolTipText = "ToolTipText"
    End With
End Sub

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