[الطالب]

سلام

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim numbers As String = "'" & String.Join("','", ListBox1.Items.Cast(Of String).ToArray) & "'"
    Table1TableAdapter.Adapter.SelectCommand.CommandText = "SELECT * FROM [Table1] WHERE [code] IN (" & numbers & ")"
    Me.Table1TableAdapter.Fill(Me.Database2DataSet.Table1)
End Sub

موفقين