我刚才又试了以下

显示:  运行时错误91,未设置对象变量或 with block 变量",

怎么解决

当我把程序的这一段 删除,程序打包后就能 正常使用 ,如果把这一段程序 加上 ,程序打包后运行 就提示 "模式窗体显示时不能显示非模式窗体" 和"运行时错误91,未设置对象变量或 with block 变量"
  该段 程序代码如下:

Do Until source <> ""

        If MsgBox("请选择参数库文件！" & vbCrLf & vbCrLf & _
            "选择“取消”则将通讯数据创建成数据库文件并保存！", vbInformation + vbOKCancel) 

= vbOK Then
            
                'CommonDialog1.Filter = "Text(*.txt)|*.txt|Picture(*.bmp)|*.bmp" '设置过滤器
                CommonDialog1.Filter = "Mdb(*.mdb)|*.mdb" '设置过滤器
                'CommonDialog1.Action = 1 '设置动作。
                CommonDialog1.ShowOpen '显示一个对话框
                source = CommonDialog1.FileName '存储源文件路径和名字的字符串变量
                'Text1.Text = source
            
        Else
                
                CommonDialog1.Filter = "Mdb(*.mdb)|*.mdb" '设置过滤器
            
                source = App.Path & "\setting_value(standard).mdb"
            
                CommonDialog1.ShowSave '显示一个对话框
            
                destination = CommonDialog1.FileName '存储目的文件路径和名字的字符串变量
                If destination = "" Then
                    source = ""
                    
                Else
                    FileCopy source, destination ' 复制文件
                    On_power_compare_parameter_flag = False     '不比较参数
                End If
            
                '

        End If
    loop