[alma2]

كود :

Dim names As New List(Of String)
        For Each i In ListBox1.Items
            names.Add("'" & i & "'")
        Next
        Dim sql As String = "Select * From [Table1] WHERE [Name] IN (" & String.Join(",", names) & ") "
        dt.Clear()
        da = New OleDbDataAdapter(sql, con)
        da.Fill(dt)