Private Sub dcmbTitel_Click(Area As Integer) ' Titel suchen
    Dim rs2 As ADODB.RecordSet
    Set rs2 = MyConnection.GetRecordset("SELECT * FROM Bibliothek")
 
    With dcmbTitel
        Set .DataSource = rs2
        Set .RowSource = rs2
'        .BoundColumn = rs2.Fields(0).Name
'        .ListField = rs2.Fields(1).Name
'        .DataField = rs2.Fields(0).Name
'        .Text = rs2.Fields(0).Value
'        .ReFill
    End With
 
    If dcmbTitel.MatchedWithList = True Then
        Set m_rs = MyConnection.GetRecordset("SELECT Titel, Autor, Inhalt," & _
          "ISBNNr, Verlag, Bei FROM Bibliothek WHERE Titel = ' & dcmbTitel.Text" & _
          "& '")
        Set mshfgBibliothek.DataSource = m_rs
    End If
    mshfgBibliothek.Refresh
 
End Sub

Ungl?cklicherweise besitzt die heutige Generation von Emailprogrammen keine Filter, um zu ?berpr?fen, ob der Absender wei? wovon er redet