Private Sub Combo1_Click()
Dim Ausgewählt As String
Dim Leerstring As String
    Ausgewählt = Left(Combo1.text, 30)
    Call Suchen(Ausgewählt, Leerstring)
End Sub
 
Private Sub Form_Load()
Dim oCon As New ADODB.Connection
Dim oRecordset As ADODB.Recordset
    With oCon
        ' Connection zur Datenbank
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        ' Pfad & Name der Datenbank
        .Open "\\pdc\company\l-office\loffice\daten\passwörter.mdb"
        .CursorLocation = adUseClient
    End With
    ' Recordset erstellen
    Set oRecordset = New ADODB.Recordset
    oRecordset.Open "SELECT Name FROM Passwörter", oCon, adOpenForwardOnly, _
      adLockReadOnly, 0
    ' Datensätze vorhanden?
    With oRecordset
        If .RecordCount > 0 Then
            ' Nun das Recordset durchlaufen und alle Daten in
            ' ComboBox eintragen
            .MoveFirst
            Do
                Combo1.AddItem .Fields(0).Value
                .MoveNext
            Loop Until .EOF
        End If
    End With
    Set oCon = Nothing
    Set oRecordset = Nothing
End Sub
 
Sub Suchen(Ausgewählt As String, Leerstring As String)
Static z As String
Static Temp As String
Dim Anzbuch As String
Dim Krit As String
Dim sCon As ADODB.Connection
Dim sRecordset As ADODB.Recordset
    With sCon
        ' Connection zur Datenbank
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        ' Pfad & Name der Datenbank
        .Open "\\pdc\company\l-office\loffice\daten\passwörter.mdb"
        .CursorLocation = adUseClient
    End With
    Set sRecordset = New ADODB.Recordset
    sRecordset.Open "SELECT Name FROM Passwörter", sCon, adOpenForwardOnly, _
      adLockReadOnly, 0
    z = Ausgewählt
    'Lesezeichen = Datenbank.Recordset.Bookmark
    Krit = "Name like '" & z & "*'"
    With sRecordset
        .MoveFirst
        .Find Krit
    End With
    MsgBox Krit
End Sub