如何用表格控件快速显示数据库中的一个字段？（请进）

[iwzw]

不用DBLIST，如何用表格控件快速显示数据库中的一个字段？就像绑定的一样快？
本人的原来做法是：
Option Explicit
dim i as integer
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Private Sub Form_Load()
Dim source As String
Cn.ConnectionString = "uid=admin;pwd=1234;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\abc.mdb"
Cn.Open
source = "select zd1 from table1"
rs.Open source, Cn
i=1
rs.movefirst
Do Until Rs.EOF
Grid1.Rows = i + 1
Grid1.Row = i
Grid1.Text = Rs!zd1
i = i + 1
Rs.MoveNext
Loop

End Sub

问题是数据库里有1万多条记录，速度太慢，见贴：http://expert.csdn.net/Expert/topic/1271/1271435.xml?temp=.1626703
不知哪位大侠、高手有提高速度之妙法？

[xiaoxinghappy]

这样还是蛮快的，只是看做法，

如果是 MSFlexGrid 那就把 Redraw 设为 False 再填充，完了再把 Redraw 设为 True

如果是其它没有 Redraw 属性的控件，那就把 Visible 设为 False ，填充完了再设为 True

[iwzw]

xiaoxinghappy(小星) ：
我现在就是这样做的，可是即使这样在奔4 1.7G的机器上也要30秒左右阿！

[yh1205]

我也试过,好像很慢唉

[of123]

循环赋值，特别是字符串值，是效率最低的。
为什么不用绑定?

[iwzw]

of123() ( ) :
只想显示表中的一个字段。

[oswica]

恩，是很慢，想。。。。

[FreshAir]

按下面的方式设置Data控件，用绑定方式最好。
RecordSetType:2 or 1 ’snapshot 或 dynaset
RecordSource : select zd1 from table1