.Columns(4).Caption = "Pfad"
      .Columns(4).ColType = TYPE_DOCUMENT Or TYPE_IMAGE
      .Columns(4).Button = True

Private Sub Grid1_OnButtonClick(ByVal nRow As Long, ByVal nCol As Long, sText _
  As String, bCancel As Boolean)
CD1.DialogTitle = "Wählen Sie ein Dokument aus:"
CD1.Filter = "alle Dateien (*.*)|*.*"
CD1.ShowOpen
 
sText = CD1.Filename
Grid1.Text(nRow, 4) = sText
Grid1.UpdateRow
End Sub

Private Sub Grid1_OnLinkClick(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  sLink As String)
  Grid1.ProcessLink nRow, nCol
End Sub

Und aus dem Chaos sprach eine Stimme zu mir: L?chle, denn es k?nnte schlimmer kommen!
Also l?chelte ich - und es kam schlimmer!