哪位能解决这个简单的VB问题

Question

Dim sqlstr As String
Dim connstr As String
    connstr = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
            "Data Source=H:\database\Testdb.mdb"    
    sqlstr = "select * from jsj"
    Adodc1.ConnectionString = connstr
    Adodc1.RecordSource = sqlstr
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
    DataGrid1.Refresh 
搞定了,别忘了加分:)

Answer 1

    有一个问题：ADO控件是和DataGrid控件搭配使用的，用的是ADO方法；而DBGrid控件是和Data控件一块使用的，用的是DAO方法，所以，你想要把通过ADO控件产生的查询结果返回到DBGrid控件中去，似乎……呵呵，还是改用DataGrid控件吧，代码如下：
   ConnStr = "……"
   SqlStr = "……"
   Adodc1.ConnectionString = ConnStr
   Adodc1.RecordSource = SqlStr
   Adodc1.Refresh
   Set DataGrid1.DataSource = Adodc1
   DataGrid1.Refresh