Sub Anfangssuche(Ausgewaehlt As String, Y As String)
Dim oCon As New ADODB.Connection
Dim oRecordset As ADODB.Recordset
Dim z As String
Dim Krit As String
Dim u As String
On Error GoTo Fehlerbehandlung
    z = Ausgewaehlt
    Krit = "Nummer like '" & z & "'"
    With oCon
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open "\\pdc\company\l-office\loffice\daten\passwörter.mdb"
        .CursorLocation = adUseClient
    End With
    Set oRecordset = New ADODB.Recordset
    oRecordset.Open "Select * from Passwörter where " & Krit, oCon, _
      adOpenDynamic, adLockOptimistic
    With oRecordset
        .MoveFirst
        If Not IsNull(oRecordset.Fields("Beschreibung").Value) Then
            lblbeschreibung1.Caption = oRecordset.Fields("Beschreibung").Value
        End If
        oRecordset.MoveNext
    End With
    Set oCon = Nothing
    Set oRecordset = Nothing
    Exit Sub
Fehlerbehandlung:
    MsgBox "Nicht in der Datenbank vorhanden"
    Unload Me
End Sub