[superwoofer]

يقوم بالبحث عن قيمة واحدة فقط

قمت بحل المشكلة ووضع الكود للفائدة

Dim numbers As String = "'" & String.Join("','", ListBox1.Items.Cast(Of String).ToArray) & "'"
da.SelectCommand = New SqlClient.SqlCommand("select * from table1 WHERE field1 IN (" & numbers & ") ", conn)

If ds.Tables.Contains("dd") Then
ds.Tables("dd").Clear()
End If
da.Fill(ds, "dd")
DataGridView1.DataSource = ds.Tables("dd")