VB中的Opendatabase方法打开Foxpro数据库

[buyong]

请问各位大虾：
我用VB中的Opendatabase方法打开一Foxpro数据库，用ODBC。可是VB告诉我“错误3151，无法打开制定的数据源”
我是按如下步骤做的：
1、打开ODBC数据源管理器，在系统DSN里添加新数据源XIN1,驱动程序是Microsoft Foxpro VFP Driver,Path指向我的数据库(名称fdb1.dbc)。
2、在VB中编程如下：
dim Fconnection as string
dim Fdata as database

Private sub command1_click()
........
Fconnection="ODBC;DATABASE=fdb1;DSN=XIN1"
Set Fdata = DBEngine.Workspaces(0).OpenDatabase("fdb1.dbc", dbDriverComplete, False, Fconnect)
'执行到此句出错
........