vb生成可执行文件出现未找到方法或数据成员

Question

代码如下，请高手解决,急用，谢谢了
'计发基本工资
Public Sub WageOne()
  Dim sSQL As String
    
 On Error GoTo myErr
    With fMainform
   '设置菜单和工具条
        .mnuFile.Enabled = False   这里出现未找到方法或数据成员
         .mnuRecord.Enabled = False
         .mnuMan.Enabled = False
         .mnuBonus.Enabled = False
         .mnuCar.Enabled = False
         .mnuMater.Enabled = False
    .mnuWork.Enabled = False
         .mnuWindow.Enabled = False
         .mnuSysEdit.Enabled = False
         .mnuPreview.Enabled = False
         .mnuPrint.Enabled = False
         .mnuWage.Enabled = False
         .tbToolBar.Enabled = False
        
    End With
   
   With fMainform.crptPrint    这里出现未找到方法或数据成员        '设定连接串
      
       .Connect = gscon
        '设定打印的报表文件
        .ReportFileName = App.Path & "\rpt\one.rpt"
        
        '排序
        .SortFields(0) = sOrder0
        .SortFields(1) = sOrder1
                
        '指定打印的记录数
        sSQL = msSql
       .SQLQuery = Left(sSQL, InStr(1, sSQL, "order by") - 2)
        .PrinterStartPage = 0
        .PrinterStopPage = -1
        .CopiesToPrinter = 1
        '设定打印预览窗口为frmPreview的子窗体
        .WindowParentHandle = frmPreview.hwnd
        frmPreview.Show        '设定打印的方式
        
        .Destination = PREVIEWMODE
        .Action = PREVIEWMODE
   End With
    
myErr:
    ShowError
    
End Sub
'计发基本工资
Public Sub WageTwo()
   Dim sSQL As String
      
  On Error GoTo myErr
    With fMainform  这里出现未找到方法或数据成员   '设置菜单和工具条
         .mnuFile.Enabled = False
         .mnuRecord.Enabled = False
         .mnuMan.Enabled = False
         .mnuBonus.Enabled = False
         .mnuCar.Enabled = False
        .mnuMater.Enabled = False
         .mnuWork.Enabled = False
         .mnuWindow.Enabled = False
         .mnuSysEdit.Enabled = False
         .mnuPreview.Enabled = False
        .mnuPrint.Enabled = False
        .mnuWage.Enabled = False
         .tbToolBar.Enabled = False
        
    End With
    
    With fMainform.crptPrint  这里出现未找到方法或数据成员   
        '设定连接串
        .Connect = gscon
        '设定打印的报表文件
       .ReportFileName = App.Path & "\rpt\two.rpt"
        
        '排序
       .SortFields(0) = sOrder0
        .SortFields(1) = sOrder1
                
        '指定打印的记录数
        sSQL = msSql
        .SQLQuery = Left(sSQL, InStr(1, sSQL, "order by") - 2)
        .PrinterStartPage = 0
        .PrinterStopPage = -1
        .CopiesToPrinter = 1
        '设定打印预览窗口为frmPreview的子窗体
        .WindowParentHandle = frmPreview.hwnd
        frmPreview.Show        '设定打印的方式
        
        .Destination = PREVIEWMODE
        .Action = PREVIEWMODE
    End With
    Exit Sub
    
myErr:
    ShowError
End Sub'显示Grid的内容Public Sub ShowData()    Dim j As Integer
    Dim i As Integer
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    With msgList
        .Rows = 1
        
        Do While Not mrc.EOF
            .Rows = .Rows + 1
            For i = 1 To mrc.Fields.Count
                Select Case mrc.Fields(i - 1).Type
                    Case adDBDate
                        .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")
                    Case Else
                        .TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & ""
                End Select
            Next i
            mrc.MoveNext
        Loop
               
        
    End With
    mrc.Close
    
End Sub

Answer 1

建议 代码块里 右键 --切换--遇到错误时中断  看看是哪个控件没有引用 

Answer 2

如果在没有VB运行环境的机器上用 需要打包

Answer 3

如果原来可以运行，现在不可以，检查库的版本。是水晶？

Answer 4

不执行啊，运行是正常的，就是生成可执行文件时不可以，出现未找到方法或数据成员

Answer 5

我在 代码块里 右键 --切换--遇到错误时中断，弄了，不行，没有中断，是什么原因啊