Using ObjSqlCon As New SqlClient.SqlConnection, _
ObjSqlCom As New SqlClient.SqlCommand
Dim ObjSqlRa As SqlClient.SqlDataReader
'数据清空防止多次查询重复添加
Me.Dataset1.Table1.Clear()
ObjSqlCon.ConnectionString = 数据库连接
ObjSqlCom.Connection = ObjSqlCon
ObjSqlCon.Open()
For A As Integer = 0 To Me.ListBox1.Items.Count - 1
ObjSqlCom.CommandText = "select * from 表 Where 列=" & Me.ListBox1.Items(A)
ObjSqlRa = ObjSqlCom.ExecuteReader
Me.Dataset1.Table1.Load(ObjSqlRa)
ObjSqlRa.Close()
Next
Me.DataGridView1.DataSource = Me.Dataset1
Me.DataGridView1.DataMember = "Table1"
End Using