急急急啊！！！VB中 提示 对象未设置或对象变量未设置

Private Sub Command2_Click()
Set Db = OpenDatabase("c:\风机.mdb")
Set rs = Db.OpenRecordset("select * from 风机检测数据")
Set MSFlexGrid1.DataSource = rs

MSFlexGrid1.Refresh

End Sub

连接MDB文件的语句为
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= '" & AccessPath & "';"
你写对了没。
比较下控件名字。
OpenDatabase是谁的方法

建议在Set MSFlexGrid1.DataSource = rs 之前加上一句： msgbox rs.recordcount 检查一下rs有无数据，同时也检查了是MSFlexGrid1的问题还是rs的问题，然后把结果上传上来，我帮你分析一下

在你执行那个判断语句之前,检查以下工作是否已经处理完: 检查你的adodc1的属性是否设置完整: 1 connectionstring 2 commandtype 3 recordsource 检查你是否打开了记录集,即是否调用了对象方法 adodc1.refresh