主题：关于打开目录的问题

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

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("第一列"))&"去掉后,可以使用,但是只能打开到文档的目录.并不能打开到我要目录下,应该怎么修改?

 

dlg.InitialDirectory = "D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\" & Tables("表B").Current("第一列")

怎么回事?刚才我也这样改过,就不行,现在又行了,要么我改错了.