Sub Suchen(Ausgewählt As String, Leerstring 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
    z = Ausgewählt
    Krit = "where Name 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 Name from Passwörter " & Krit, oCon, _
      adOpenForwardOnly, adLockReadOnly, 0
    With oRecordset
            Do
                lblroot1.Caption = oRecordset.Fields("Root").Value
                lbluserlei1.Caption = oRecordset.Fields("Userlei").Value
                lblbeschreibung1.Caption = oRecordset.Fields( _
                  "Beschreibung").Value
                lblpcanywhere1.Caption = oRecordset.Fields("PC-Anywhere").Value
                lblfirewall1.Caption = oRecordset.Fields("Firewall").Value
                lbldomäne1.Caption = oRecordset.Fields("Domäne").Value
                lblmodem1.Caption = oRecordset.Fields("Modem").Value
                .MoveNext
            Loop Until .EOF
    End With
    Set oCon = Nothing
    Set oRecordset = Nothing
End Sub