哪错了？

--------------------编程问答-------------------- 结帖率：0.00%  --------------------编程问答--------------------

sqlstring = "select * from defect"

if rs.state<>adstateclosed then rs.close

rs.open sqlstring,db,adopenkeyset,adlockreadonly

Set VSFlexGrid1.DataSource = rs

--------------------编程问答-------------------- 提问题要叙述清楚，错误信息是什么 --------------------编程问答-------------------- 去掉：
 Set db = New ADODB.Connection
  Set rs = New ADODB.Recordset
重复

VSFlexGrid1.DataRefresh（往后放）

放End sub前面

试一下 --------------------编程问答-------------------- 在Set VSFlexGrid1.DataSource = rs之后加上
vsflexgrid1.refresh
试试!

补充：VB ,  基础类