Dim db As database
  Dim DS_Worte As Dynaset
  Dim DS_Occurs As Dynaset
  Dim tb As table
  Dim tb_Occurs As table
  Dim Wort$

  Set db = OpenDatabase("P:\DATEN\CD\NMCDSPY.MDB")
  'Set DS_Worte = db.CreateDynaset("T_Worte")
  Set tb = db.OpenTable("T_Worte")
  tb.Index = "PrimaryKey"  ' Define current index.
  Set tb_Occurs = db.OpenTable("T_Occurs")
  tb_Occurs.Index = "PrimaryKey"

  'Set DS_Occurs = db.CreateDynaset("T_Occurs")

  ChDrive ("N:")
  MDICDSpy.WindowState = 0
  For I% = 1 To UBound(GM_DBAll)
    ChDir (GM_DBAll(I%).Verzeichnis)
   ' Debug.Print CurDir
    If FM_Exists("WORTE.YZX") Then
      fh% = FreeFile
      Open "WORTE.YZX" For Input As fh%
      'Debug.Print "BeginTrans : "; Timer
      db.BeginTrans
      'Debug.Print "Scanstart : "; Timer
      Do While Not EOF(fh%)
        Line Input #fh%, zeile$
        pos% = InStr(zeile$, ",")
        Wort$ = Left$(zeile$, pos% - 1)
        tb.Seek "=", Wort$
        If tb.NoMatch Then
          tb.AddNew
          tb!Wort = Wort$
          tb.Update
          tb.Seek "=", Wort$
        End If
        tb_Occurs.Seek "=", I%, tb!ID
        If tb_Occurs.NoMatch Then
          tb_Occurs.AddNew
          tb_Occurs!ID = I%
          tb_Occurs!ID_Wort = tb!ID
          tb_Occurs.Update
        End If
        'DS_Worte.AddNew
        'DS_Worte!Wort = Left$(zeile$, pos% - 1)
        'On Error Resume Next
        'DS_Worte.Update
        'If Err <> 0 Then ' Wort bereits vorhanden
        '  On Error GoTo 0
        '  tb.Seek "=", Left$(zeile$, pos% - 1)
        '  DS_Occurs.AddNew
        '  DS_Occurs!ID = I%
        '  DS_Occurs!ID_Wort = tb!ID
    '   '   DS_Worte.FindFirst "Wort = '" & Left$(zeile$, pos% - 1) & "'"
        'Else
        '  On Error GoTo 0
        '  DS_Worte.MoveLast
        '  DS_Occurs.AddNew
        '  DS_Occurs!ID = I%
        '  DS_Occurs!ID_Wort = DS_Worte!ID
        'End If
        'DS_Occurs!filename = Mid$(zeile$, pos% + 1)
        'On Error Resume Next
        'DS_Occurs.Update
        'Err = 0
        'On Error GoTo 0
      Loop
      db.CommitTrans
      Close fh%
      Temp$ = Dir$
    End If
  Next I%
  'DS_Occurs.Close
  'DS_Worte.Close
   tb.Close
   tb_Occurs.Close