Private Sub Form_Load()
  With datTeilnehmer.
    .DatabaseName = App.Path & "\Datenbank\Kurse.mdb"
    .RecordSource = "Select * From Teilnehmer order by Name"
    .Refresh
 
    lblVersion.Caption = "V" & App.Major & "." & App.Minor & "." & App.Revision
    lblProductName.Caption = App.Title
    DoEvents
 
    zaehlword
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de