ssql="select top 10 from 表1" 选取表1中前十条记录。
set rs=cn.openrecordset(ssql,rdopenstatic,rdconcurreadonly)
if not rs.eof then
with me.datagrid
.clesr
.rows=rs.rowcount+2
end with
for i=0 to rs.rowcount-1
with me.datagrid
.textgrid(i+1,0)=rs!字段1
.textgrid(i+1,0)=rs!字段2
.textgrid(i+1,0)=rs!字段3
.textgrid(i+1,0)=rs!字段4
。。。。。
end with
rs.monext
next i
endif