如何将数据库access中的表内容显示在DataGride??谢谢

Question

如何将数据库access中的表内容显示在DataGride??请问这样行吗？如下：
Private Sub Form_Load()
    Dim db As DAO.Database, rs As DAO.Recordset
    
    Set db = DBEngine.OpenDatabase(App.Path & "\s.mdb")
    Set rs = db.OpenRecordset("select * from 器件统计表 ")End Sub
Private Sub Data1_Click()
   Set Data1.DataSource = rs
End Sub不行的话，请给个程序谢谢！！！

Answer 1

可以....但感觉不好控制
反正我用这好这个datagride
我用的是msfhlexgrid
用for循环一条记录一条记录的写进去for i=1 to rs.recordcount
     msfhlexgrid.TextMatrix(0, 1) =rs.filds("名称").value
     msfhlexgrid.rows=msfhlexgrid.rows+1
     rs.movenext
     
next irs.close

Answer 2

利用Adodc控件解决了，谢谢参与！！