VB连接DBF数据库事例！

如题：

求vb使用ODBC连接DBF数据库的代码

---

VB code:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"
Adodc1.RecordSource = "select * from JWCK_BM"
Adodc1.Refresh
End Sub

jwl_dbf是VFP数据库ODBC名称

---

引用

VB codePrivateSub Form_Load()
    Adodc1.ConnectionString="Provider=MSDASQL.1;Persist Security Info=False;Data  Source=jwl_dbf"
    Adodc1.RecordSource="select * from JWCK_BM"
    Adodc1.RefreshEnd Sub
jwl_dbf是VFP数据库ODBC名称

学习

---

先建立ODBC，看看能不能连接。

---

VB code:

'连接DBF
connStr = "Provider=MSDASQL.1;" & _
"Driver=Microsoft Visual FoxPro Driver;" & _
"SourceDB=" & App.Path & "\;" & _
"Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF"
conn.Open connStr
rs.CursorLocation = adUseClient
sql = "select * from 工资表" '工资表为dbf文件名称
rs.Open sql, conn, adOpenDynamic, adLockOptimistic