第二个问题：我在其中一个子窗体QQBJ里面添加了DataGrid1控件和一个Adodc1，

DataGrid1控件的DataSource设置为Adodc1，只是摆在了上面，没有添加任何与之相关的代码；

Adodc1属性只设置了连接属性：ConnectionString，。。。。测试连接成功！（也许有了下列语句代码的话，这个属性设置可能是多余，但为防万一，还是设置了！）

其LOAD（）代码又添加了如下代码：

Private Sub Form_Load()
Dim Adoc1 As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db3.mdb;Persist Security Info=False"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 亲戚信息"
Adodc1.Refresh

。。。。

执行之，从主体进入该子体时，出现提示：“[ADODC]没有指定记录源；[ADO]没有为命令对象设置命令”

但还可以执行下去，退出子体返回主体时，也出现同样提示框！

另外，DataGrid1显示出了该数据表！

尽管这个DataGrid1几乎是孤立的，没有任何与之有关的代码，没有对它的属性做任何设置！

直接在上面就可以实现修改，但刷新不了！

要到下次打开时，才实现更新！

你就不要用这个Adodc1控件吧,看我下面的

Public Sub main()
dbstr = App.Path
If Right(App.Path, 1) <> "\" Then dbstr = App.Path & "\"
dbstr = dbstr & "stu.mdb" '查找数据为路径

Set db = New ADODB.Connection
db.Open "provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=1gg1mmok;" & "Data Source=" & dbstr

Set ADORst = New ADODB.Recordset
ADORst.CursorLocation = adUseClient
ADORst.CursorType = adOpenDynamic
ADORst.LockType = adLockOptimistic
-----这里你就可以查你可以设为条件查寻 了
end sub

希望有帮助

Set db = New ADODB.Connection
db.Open "provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=1gg1mmok;" & "Data Source=" & dbstr

这里的数据库文件是2000以上或2003的,所以Microsoft.Jet.OLEDB.4.0如果不是要是3.5的,后面的Password=1gg1mmok
这个1gg1mmok 是数据库密码

在代码里重新绑定一下...或者动态绑定dataGrid

绑定？

怎么绑定？动态绑定？

怎么绑定？动态绑定？

“3、Adodc1.RecordSource的值改为"select * from 亲戚信息"”
怎么设置啊？难道就在其属性栏的RecordSource空白栏直接填写“select * from 亲戚信息”么？

如果点RecordSource的“。。。”小控件的话，则出现属性页：记录源
里面一个命令类型、一个命令文本（SQL）
如何设置呢？