Private Sub dataQuery_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        REM 创建连接对象并打开连接
        Con = New ADODB.Connection()
        Con.ConnectionString = "Dbq=" & System.Windows.Forms.Application.StartupPath & "\钻孔情况表.mdb;Driver={Microsoft Access Driver (*.mdb)}"
        Con.Open()
        REM 创建记录集对象并获取表的数据
        Rec = New ADODB.Recordset()
        Rec.CursorType = ADODB.CursorTypeEnum.adOpenKeyset
        Rec.LockType = ADODB.LockTypeEnum.adLockOptimistic
        Rec.ActiveConnection = Con
        If 数据库.BindingNavigator.BindingSource Is 数据库.钻孔数据表BindingSource Then
            Rec.Open("钻孔数据表")
        ElseIf 数据库.BindingNavigator.BindingSource Is 数据库.钻孔情况表BindingSource Then
            Rec.Open("钻孔情况表")
        ElseIf 数据库.BindingNavigator.BindingSource Is 数据库.标贯表BindingSource Then
            Rec.Open("标贯表")
        End If
        REM 向第一个组合框中加入表中各字段的名称
        CmbFields.Items.Clear()
        CmbFields.Items.Add("字段名")
        Dim iCount As Integer
        For iCount = 0 To Rec.Fields.Count - 1 '错误：没有为命令对象设置命令
            CmbFields.Items.Add(Rec.Fields.Item(iCount).Name)
        Next
        CmbFields.SelectedIndex = 0

    End Sub

这是我的一段代码！问题好像就出在 数据库.BindingNavigator.BindingSource上 数据库是另外一个窗体，如果先启动的是数据库窗体，然后通过数据库窗体打开dataQuery就没有任何问题，但是如果把这两个窗体嵌入到主程序中，通过主程序打开数据库窗体，然后再打开dataQuery就会出现错误：没有为命令对象设置命令，我接触编程时间很多，对于很多东西都不是特别了解，不知我描述的是否清楚，望高手指点迷津，谢谢！

确实是这样的 是if语句没有满足，但是当数据库窗体是启动窗体时就正常啊  为什么嵌入主窗体后if语句就不能满足了呢？找些什么例子呢？

能为我解释一下吗 我按着你说的做 可以打开dataQuery窗体，但不懂这是为什么？

还是麻烦你帮我看一下吧 我改了一个简易的程序，具体问题也在read me.txt中有所描述，按着你说的我还是，查询窗体能出现，但是查询无法进行，我都快搞糊涂了，我真的不懂，就是看一些代码，也无济于事！谢谢！ 附件见楼下！

急死了 又被这个问题搞了一天 头都大了  我恨死了

我早该想到的  感谢百度知道的xjnzhidao网友  谢谢 也谢谢版主
Form3改为
Public Class Form3    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Form1.Show()    End SubEnd Class