With oCon
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open "info.mdb"
        .CursorLocation = adUseClient
    End With
    Set oRecordset = New ADODB.Recordset
    oRecordset.Open "SELECT * FROM Mitarbeiter where" & Krit1, oCon, _
      adOpenForwardOnly, adLockReadOnly, 0
    cbo_ansprechpartner.Enabled = True
'hier müsste der Fehler beginnen
    With oRecordset
        If .RecordCount > 0 Then
            .MoveFirst
            Do
                cbo_ansprechpartner.AddItem .Fields("Name").Value
                .MoveNext
            Loop Until .EOF
        End If
    End With
    Set oCon = Nothing
    Set oRecordset = Nothing