Sub Grd_Init
     ...
     ...
    With Grd
         ....
         ....
       ' Balloon-ToolTip
        .BalloonTip = True
 
        ' Bildsymbol "Info"
        .ToolTipIcon = rsInfoIcon
 
        ' autom. Neuzeichnen einschalten
        .LockUpdate False
        .Refresh
       ' 1. Zeile selektieren
        .Row = 1
 
        ' ursprüngliches Recordset zerstören
        rsKosten.Close
        Set rsKosten = Nothing
   End With
End Sub
 
Private Sub Grd_OnMouseMove(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  Button As Integer, ByVal Shift As Integer, sToolTip As String)
    ' ToolTips
    With Grd
        .ToolTipTitle = .Columns(nCol).Caption
        .ToolTipText = "hallo"
    End With
 
End Sub