ListView1.Checkboxes = True
    s = Left(Text2.Text, 10)
    Krit1 = "Firmenname like '" & s & "'"
    With oCon
        ' Die Connection zur Datenbank
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        ' Pfad & Name der Datenbank
        .Open dbFilename
        .CursorLocation = adUseClient
    End With
    ' Ersteinmal brauche wir ein Recordset
    Set oRecordset = New ADODB.Recordset
    oRecordset.Open "SELECT * FROM Datenbank1 where " & Krit1, oCon, _
      adOpenForwardOnly, adLockReadOnly, 0
    ' Sicherstellen, dass das ListView leer ist