datagrid处出现91错误，对象变量未设置，忘各位高手帮忙解答一下啊！
Public Sub Refreshdata(ByVal newDataGrid As DataGrid, ByVal newAdodc As Adodc)Dim dataConnection As String
dataConnection = "provider=microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\DB\Housemanager.mdb;Persist Security Info=False"
newAdodc.ConnectionString = dataConnection
newAdodc.Refresh
Set newDataGrid.DataSource = newAdodc
newDataGrid.Refresh
End Sub .
.
newAdodc.ConnectionString = dataConnection
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from table"
Adodc1.Refresh
newAdodc.Refresh
.
. .
.
newAdodc.ConnectionString = dataConnection
newAdodc.CommandType = adCmdText
newAdodc.RecordSource = "select * from table"
newAdodc.Refresh
.
. 大神，还是不行啊，又出现了from字句语法错误，求指点啊！
from table 中的table应该使用你自己的表的名字，1L给你的代码只是举例说明 这我知道，只是我是在公共模块写这个过程，后面有好几个表要调用这个过程，现在的问题是我的datagrid.refresh这句不能实现啊，我后面的ado控件跟datagrid控件都连接好了，但是就不知道是什么问题？！ 我是用access建立了个数据库然后添加好几个表，就是用这个过程刷新这些表的，但是datagrid.refresh老弹出来91错误啊，该咋整啊？？？
那说明没连好啊
你看看你的
newAdodc.Refresh '里面到底有没有东西
源程序删掉Set newDataGrid.DataSource = newAdodc
newDataGrid.Refresh 这两句就可以执行，adodc.refresh里面有东西啊，可以运行的
补充：VB , 控件
