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.SendKeys vbKeyReturn, 0
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de