Private Sub GridFormat()
  With Grid
     Set .Recordset = rs
    .Columns("FeldBetrag").Caption = "Betrag"
    .Columns("FeldSatum").Caption = "Datum"
    .Columns("FeldName").Caption = "Name"
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de