Dim W As IO.StreamWriter
        Dim i As Integer
        Dim READER As OleDbDataReader
        Dim COMMAND As OleDbCommand
        Dim myConn As New OleDbConnection
        Dim Query As String 
 
        Query = "select * from database.edata"
         myConn.ConnectionString = "WissensdatenbankConnectionString" 
        COMMAND = New OleDbCommand(Query, myConn)
        READER = COMMAND.ExecuteReader
 
        W = New IO.StreamWriter("C:\Desktop\Suche.txt")
 
        For i = 0 To ComboBox1.Items.Count - 1
 
            READER.Read()
            Dim myText = READER.GetString(ComboBox1.Items.Item(i))
            W.WriteLine(myText)
 
        Next
        W.Close()