Vb.net Can'；导出后找不到数据库路径

我有一个vb.net应用程序，它使用Vistadb和以下连接字符串。我还能够将数据导出到excel。但在导出到不同于应用程序目录的报告后，程序崩溃，并表示在导出的目录中找不到数据库。我相信连接线有问题，但我没发现。任何帮助都将不胜感激

谢谢

Dim con As VistaDBConnection
        Dim Cmd As New VistaDBCommand
        Dim constring As String
        constring = String.Format("Data Source =v_slot_database.vdb3", (System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)))
        con = New VistaDBConnection(constring)

---

找到它。正确的字符串是这样的

constring = String.Format("Data Source =" + (System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location)) + "\\v_slot_database.vdb3")