运行程序出现adodc1对话框:[ADODC]:没有指定记录源[ADO]：没有为命令和对象设置命令。急！

Question

运行以下程序： 
Private Sub Form_Load() 
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;Persist Security Info=False" 
End Sub Private Sub Command1_Click() 
Dim rsc As Integer 
Frm_FindDangA.Adodc1.RecordSource = strTiaoJian 
Frm_FindDangA.Adodc1.Refresh 
rsc = Frm_FindDangA.Adodc1.Recordset.RecordCount 
If rsc <= 8 Then 
      Frm_PictureS.Show 1 
Else 
      Frm_SearchR.Show 1 
End If 
End Sub 
想实现以下功能：如果记录条数小于等于8条，显示Frm_PictureS，否则显示Frm_SearchR. 
但在程序运行时出现adodc1提示框：[ADODC]：没有指定记录源，[ADO]：没有为命令和对象设置命令。 
点击确定时，却可以显示Frm_SearchR. 
不知表述是否清楚，敬请各位指点：这是为什么呢？ 
多谢了。解决了就散分了。呵

Answer 1

信息.mdb 的路径是什么?,系统找不到你的数据库,用绝对的路径或相对路径(app.path)

Answer 2

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;Persist Security Info=False" 
'数据库名不能只用 信息.mdb 来用全名,即包括路径:如 C:\信息.mdb 

Answer 3

错误有2处
1）如1楼和2楼指出的
2）Frm_FindDangA ，Frm_PictureS， Frm_SearchR分别属3个窗体，不知道你的Adodc1控件在那个窗体？

Answer 4

错误有2处
1）如1楼和2楼指出的
2）Frm_FindDangA ，Frm_PictureS， Frm_SearchR分别属3个窗体，不知道你的Adodc1控件在那个窗体？

Answer 5

数据库没连接好:如
Public   gsOdbcName   As   String   
Public   ADOsdb   As   new   ADODB.Connection         gsOdbcName   =   "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data   Source= "   _ 
                &   app.path   &   "\db.mdb "   &   "; " 
        
With   ADOsdb 
                If   .State   <>   adStateOpen   Then 
                        .CursorLocation   =   adUseClient 
                        .ConnectionString   =   gsOdbcName 
                        .Open 
                End   If 
End   With 

Answer 6

感谢各位网友的热情帮助。
我将窗体Frm_SearchR中的DataGrid控件的Datasource项置空，程序就正常了。有点不可思议。还想敬请高人指点。
好在现在问题解决了，现在散分了。呵呵。