Option Compare Database
Option Explicit

        Public Conn As New ADODB.Connection
        Public rs As New ADODB.Recordset

Function oConn(ByVal pth As String)
On Error GoTo errExit
If Conn.State <> 0 Then Conn.Close
Conn.Open ("Provider=VFPOLEDB.1;Data Source=" & pth & ";Mode=ReadWrite|" _
& "Share Deny Read|Share Deny Write;Extended Properties="";User ID="";Password="";" _
& "Mask Password=False;Cache Authentication=False;Encrypt Password=False;" _
& "Collating Sequence=MACHINE;DSN=""")
Exit Function
errExit:
MsgBox Err.Number & " : " & Err.Description
End Function

Function cConn()
If rs.State <> 0 Then rs.Close
If Conn.State <> 0 Then Conn.Close
End Function

- ถ้ายังไม่มี component ในเครื่องให้ไปหามาก่อนครับ จากเน็ต ฟรีครับ "VFPOLEDB"

ตัวอย่างการใช้งานครับ
- มีโฟลเดอร์ที่เก็บ DBF ชื่อ dbDBF อยู่ใน drive D
- มีไฟล์ DBF หลายไฟล์อยู่ในโฟลเดอร์นั้นๆ บางไฟล์มีไฟล์อื่นๆ (จำพวก index) กำกับอยู่ด้วย
- พวกที่มีไฟล์ .cdx (แค่ตัวเดียว) อยู่ด้วย ?ราสามารถเปิดด้วย Excel ทำงานได้ แล้ว save as ซึ่งก็สามารถลิงค์เข้า Access แล้วทำงานได้แบบ real time เช่นกัน
- แต่ DBF บางตัวไม่สามารถทำอย่างนั้นได้ เพราะมีไฟล์อีกหลายอย่างที่กำกับมันอยู่ (ผมก็ไม่รู้เขาเรียกอะไรกันบ้าง) เช่น มีทั้ง .BAK, .CDX, .FPT, .TBK    ไฟล์ DBF ตัวนี้เวลาเราจะจัดการเราต้องใช้ผ่าน OLEDB ดังกล่าวครับ

sub testAdd()
oConn "D:\dbDBF"
Conn.execute "Insert into [ชื่อไฟล์ DBF].........."
cConn
End sub

มันสามารถรัน statement ได้ทั้ง insert, delete, update, select, alter ครบทุกอย่างเลยครับ
เท่าที่ผ่านมาผมใช้มันได้ตามปกติ ยังไม่เจอปัญหาใดๆ ครับ