For Each List_Text As String In List1.SelectedItems

If List1.GetSelected(Liste) = True then
     text= List1.Items(LInt_Liste).tostring

    Sub CreateDataTable_AKTIEN(ByVal LStr_SQL_Text As String)
        Dim LStr_DatenbankName As String
        LStr_DatenbankName = GStr_Aktien_Pfad$ + GStr_Aktien_Datei$ & ".MDB"
        Dim conStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source=" _
          + LStr_DatenbankName
        Dim sqlStr As String = LStr_SQL_Text
        Dim conn As OleDbConnection = New OleDbConnection(conStr)
        Dim da As OleDbDataAdapter = New OleDbDataAdapter(sqlStr, conn)
        Dim ds As DataSet = New DataSet()
        da.Fill(ds, "AKTIEN")
        Dim dv As DataView = ds.Tables("AKTIEN").DefaultView
        List1.DataSource = dv
        List1.DisplayMember = "AKTIE"
    End Sub

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de