Пользователь2Код покажи.
Set cn = New ADODB.Connection
cn.Mode = 3
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + sDIR_WORK$ + "\;Extended Properties=dBase IV;mode=Read|Write|Share Deny None"
cn.Mode = 3

sDIR_WORK$ соотвественно - "С:\..."

Что ни у кого никаких идей?????

Прошу прощения ошибка вот где возникает.... а вовсе не там где я указал в начале, то есть при импорте данных из dbf

With ThisWorkbook.Sheets("ERR").QueryTables.Add(Connection:= _
"ODBC;DSN=Файлы dBASE;DefaultDir=" + Mid$(sDIR_WORK$, 1, Len(sDIR_WORK$) - 1) + ";DriverId=533;MaxBufferSize=2048;PageTimeout=5;" _
, Destination:=ThisWorkbook.Sheets("ERR").Range("A1"))
.CommandText = Array("SELECT * FROM MOVEtmp WHERE CHECKERR is not null")
.Name = "Запрос из Файлы dBASE"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With