Dim Recordset As New ADODB.Recordset, Record As New ADODB.Record
        Dim rsNTermin As dao.Recordset
 
        Record.Open m_iMailbox.Calendar
        Set Recordset.ActiveConnection = Record.ActiveConnection
 
        'Alle Termine durchgehen und überprüfen ob in exchnage die TID 
        ' überinstimmt
        While Not rsTermine.EOF
 
            Recordset.Source = "SELECT ""DAV:href"" " & _
                               "FROM scope('shallow traversal of """ & _
                               m_iMailbox.Calendar & """') " & _
                               "WHERE ""DAV:uid"" = '" & rsTermine.Fields( _
                               "TID") & "'"
            Recordset.Open
 
            'Termin herausfiltern und Details auslesen
            sSQL = "Select * from terminplaner where TID = '" & _
              rsTermine.Fields("TID") & "'"
            Set rsNTermin = db.OpenRecordset(sSQL, dbOpenDynaset, dbSeeChanges)
 
            If Recordset.RecordCount > 0 Then
                Recordset.Fields.Append ("TerminID"), adInteger
                Recordset.Fields("TerminID").Value = rsNTermin.Fields("Nummer")
                Recordset.Fields.Update
 
            Else
                'Termin in Exchange erstellen
                Call Kalendereintrag_erstellen(lstUser, rsNTermin.Fields( _
                  "Betreff"), rsNTermin.Fields("Ort"), rsNTermin.Fields( _
                  "Datumvon") & " " & rsNTermin.Fields("Von"), rsNTermin.Fields( _
                  "Datumbis") & " " & rsNTermin.Fields("Bis"), rsNTermin.Fields( _
                  "Bemerkung"), rsNTermin.Fields("Nummer"))
            End If
            rsTermine.MoveNext
 
        Wend