我用代码建立一个新目录,并将此目录重命名为,如下:

FileSys.CreateDirectory("D:\\Release商业版\\CaseStudy\\管理项目1\\Attachments\\文档\\XJ")
FileSys.RenameDirectory("D:\\Release商业版\\CaseStudy\\管理项目1\\Attachments\\文档\\XJ",Tables("表B").Current("第一列"))

   我想再做一个按钮打开此目录,代码如下:

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog

dlg.InitialDirectory="D:\\Release商业版\\CaseStudy\\管理项目1\\Attachments\\文档\\" & Tables("表B").Current("第一列"))&"
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show("你选择的是：" & dlg.FileName,"提示") \'提示用户选择的文件
End If

  这个不能处理退出代码编辑框,将 & Tables("表B").Current("第一列"))&"去掉后,可以使用,但是只能打开到文档的目录.并不能打开到我要目录下,应该怎么修改?