怎么把每次循环的结果都现在datagridview上？
Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet

Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(ComboBox1.Text)
b = Val(ComboBox2.Text)
c = Val(ComboBox3.Text)



Conn = New OleDbConnection()
Conn.ConnectionString = "Provider=Microsoft.ace.OLEDB.12.0;" & _
"Data Source=f:\Database1.accdb"


For i = a To b Step c

'执行select语句查询数据库
da = New OleDbDataAdapter("SELECT * FROM test1 WHERE id=" & i & "", Conn)

'实例化DataSet对象
ds = New DataSet()
'将da中的数据放到DataSet中，并起一个别名test2，这个别名任意起
da.Fill(ds, "test2")

'设置DataGridView数据源。用DataGridView显示数据库表grade内容
DataGridView1.DataSource = ds.Tables("test2")
Next i

End Sub



现在只显示最后一次运行的结果，我需要把每次查询到的数据都显示出来，这段程序该怎么改？添加行怎么添加？

[解决办法]
For i = a To b Step c

'执行select语句查询数据库
da = New OleDbDataAdapter("SELECT * FROM test1 WHERE id=" & i & "", Conn)

'实例化DataSet对象
ds = New DataSet()
'将da中的数据放到DataSet中，并起一个别名test2，这个别名任意起
da.Fill(ds, "test2")

'设置DataGridView数据源。用DataGridView显示数据库表grade内容
Next i
循环完后再绑定。
DataGridView1.DataSource = ds.Tables("test2")