主题：这个问题错在哪？请指点！！

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

这段有问题

 

Dim dlg As New SaveFileDialog   '指定一个新的SaveFileDialog
dlg.Filter= "上报文件|*.DSB "   '设置筛选器

dlg. title= "生成上报文件"
dlg.OverwritePrompt = True  '对于已经存在的文件名，是否出现覆盖警告

If dlg.ShowDialog = DialogResult.Ok Then   '如果用户单击了确定按钮

If FileSys.FileExists(dlg.filename) Then    '如果指定的文件存在
    FileSys.DeleteFile(dlg.filename,2,2)     '则彻底删除之
    End If
    Dim ex as New Exporter
    ex.SourceTableName = "调资基础数据"   '指定导出表

ex.Format = "Access"   '指定导出文件格式
    ex. PassWord = “TZX_GWY_JT_8888”  '用此属性指定目标文件的密码

ex.filepath =  dlg.filename    '指定目标文件

ex.NewTableName = "调资基础数据"        '指定导出后的表的名称

    ex.Export()    '开始导出数据
    MessageBox.Show("上报数据生成完成！！！", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

这是原来做的