如何解决通过 ADO 建 VFP 表时路径问题

Question

我发现，如果本窗体或其他窗体有通用对话框时，通过ADO建VFP表时路径会改到通用对话框的路径，如何解决？例如以下代码就可能因此而出错：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordsetcn.open "PROVIDER=MSDASQL;DRIVER={Microsoft Visual Foxpro Driver};SourceDB=" & App.Path + "\;SourceType=dbf"'改变路径（如C:\)选择一个文件
CommonDialog1.ShouOpen'新建的表路径与选择的文件同，而不在 App.Path 
cn.Execute "create table test.dbf(word char(10))"'会提示找不到表，把 test.dbf copy 到 App.Path 能正确执行
rs.open "select * from test.def",cn

Answer 1

给CommonDialog一个初始路径试试
commondialog1.initdir="..."

Answer 2

我已经解决了：create table 的时候可以加上路径的：cn.Execute "create table " & app.path & "\test.dbf(word char(10))"