哪错了？

Question

本帖最后由 bcrun 于 2011-05-27 10:02:53 编辑

Answer 1

sqlstring = "select * from defect"
if rs.state<>adstateclosed then rs.close
rs.open sqlstring,db,adopenkeyset,adlockreadonly
Set VSFlexGrid1.DataSource = rs

Answer 2

去掉：
 Set db = New ADODB.Connection
  Set rs = New ADODB.Recordset
重复VSFlexGrid1.DataRefresh（往后放）放End sub前面试一下

Answer 3

在Set VSFlexGrid1.DataSource = rs之后加上
vsflexgrid1.refresh
试试!