datTeilnehmer.DatabaseName = App.Path & "\Datenbank\Kurse.mdb"
datTeilnehmer.RecordSource = "Select * From Teilnehmer order by Name"
lblVersion.Caption = "V" & App.Major & "." & App.Minor & "." & App.Revision
lblProductName.Caption = App.Title
zaehlword

Public Function zaehlword()
Dim Wordanzahl
Dim Wordanzahlgesamt
Wordanzahl = 0
Wordanzahlgesamt = 0
frmKurse.datTeilnehmer.Recordset.MoveFirst
Do While Not frmKurse.datTeilnehmer.Recordset.EOF
        Wordanzahl = 0
        Do While Not frmKurse.datTeilnehmer.Recordset.EOF
        If Not frmKurse.datTeilnehmer.Recordset.Fields("Bemerkungen") = "" Then
        frmKurse.datTeilnehmer.Recordset.MoveNext
        Else
        If frmKurse.datTeilnehmer.Recordset.Fields("Word") = 1 Then
        Wordanzahl = Wordanzahl + 1
        frmKurse.datTeilnehmer.Recordset.MoveNext
        Else
        frmKurse.datTeilnehmer.Recordset.MoveNext
        End If
        End If
 
        Loop
        Wordanzahlgesamt = Wordanzahl + Wordanzahlgesamt
        Loop
frmKurse.txtWord.Text = Wordanzahlgesamt & " Teilnehmer in Word"
End Function