Dim FixCon As Connection
Set FixCon = New Connection
FixCon.ConnectionString = "provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=" & Foxpro_Path & ";"
FixCon.Open