Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
 
Private Sub cmdvergleichen_Click()
Dim zaehler1 As Double
Dim zaehler2 As Double
Dim zaehler As Double
Dim i As Double
Dim h As Double
Dim ddb() As String
Dim dsdb() As String
Dim wert As String
Dim suchkrit As String
Dim gefunden As Integer
 
 
Dim SQL As String
 
ProgressBar1.Value = ProgressBar1.Max
ProgressBar1.Enabled = False
 
 
SQL = "DELETE * FROM Daten"
rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
 
SQL = "select * FROM Daten"
rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
 
 
Open txtdatei1.Text For Input As #1
Do While Not EOF(1)
    Line Input #1, wert
            rs.AddNew
          rs!Text = IIf(IsNull(wert) Or wert = "", " ", wert)
          rs!flag = 1
    Debug.Print wert
 
Loop
Close #1
 
 
Open txtdatei2.Text For Input As #1
Do While Not EOF(1)
    Line Input #1, wert
           rs.AddNew
          rs!Text = IIf(IsNull(wert) Or wert = "", " ", wert)
          rs!flag = 2
 
Loop
Close #1
 
rs.UpdateBatch
rs.Close
 
Open txtausgabe.Text For Output As #1
 
  SQL = "SELECT text FROM Daten GROUP BY text HAVING count( * ) = 1 "
  SQL = "SELECT * from Daten WHERE flag = '1' and text IN (" & SQL & ")"
  'SQL = "SELECT * from Daten WHERE text IN (" & SQL & ")"
  rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
 
  ProgressBar1.Value = 0
  ProgressBar1.Max = rs.RecordCount
 
  Do Until rs.EOF
    Print #1, rs!Text
    Debug.Print rs!Text
    rs.MoveNext
  ProgressBar1.Value = ProgressBar1.Value + 1
  Loop
rs.Close
 
Close #1
 
 
End Sub
 
 
Private Sub Form_Load()
 
  Set cn = New ADODB.Connection
With cn
    .CursorLocation = adUseClient
    .Mode = adModeShareDenyNone
    ' Jet-Provider
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    ' Pfad zur eigendlichen DB
    .Properties("Data Source") = App.Path & "\db\Daten.mdb"
    ' Datenbankpasswort
    '.Properties("Jet OLEDB:Database Password") = ""
    ' Pfad zur System- und Securety-MDW
    '.Properties("Jet OLEDB:System database") = "P:\VB\Server" & _
      "Verwaltung\db\Gesichert1.mdw"
    ' UserId für anzumeldenden User
    '.Properties("User ID") = "ahlermi"
    ' Passwort des Users
    '.Properties("Password") = ""
    .Open
End With
 
Set rs = New ADODB.Recordset
 
 
End Sub