Привет всем !
Вставляю в DBF файл записи, идет ругань на type mismatch
error 13
Как только не пробовал ...не загоняет поля dd и dod типа Date
С листа беру запись вида 30/09/03

i = 2
While Not IsEmpty(tblProv.Cells(i, 8).Value) And Not IsEmpty(tblProv.Cells(i, 1).Value)
np = CDec(Trim(Cells(i, 1).Value))
dd = "'" & CDate(Trim(Cells(i, 2).Value)) & "'"
dod = "'" & CDate(Trim(Cells(i, 2).Value)) & "'"
dt = "'" & CStr(Trim(Cells(i, 3).Value)) & "'"
ad = "'" & CStr(Trim(Cells(i, 4).Value)) & "'"
k = "'" & CStr(Trim(Cells(i, 5).Value)) & "'"
ak = "'" & CStr(Trim(Cells(i, 6).Value)) & "'"
smr = Replace(Trim(Cells(i, 7).Value), ",", ".")
prim = " '" & CStr(Trim(Cells(i, 8).Value)) & "'"
' вставим в таблицу записи
' символ # здесь не лезет ...
cnn.Execute "INSERT INTO " & OldName1 & "(np,dd,dod,dt,ad,k,ak,smr,prim) VALUES (" & np & "," & dd & "," & dod & "," & dt & "," & ad & "," & k & "," & ak & "," & smr & "," & prim & ")"
progress = 100 * (i - 1) / strok
Application.StatusBar = "Идет заполнение данных dbf файла для " & np - 400 & " филиала ! Выполнено " & Int(progress) & " %"
i = i + 1
Wend

Кто посоветует чё ...

Так тоже не покатило
а покатило тогда ...
когда я дал (varaint/string) dd и dod поля типа Date

Вот такой интересный момент

'Dim dd As Date
'Dim dod As Date
....................
dd = "'" & CDate(Trim(Cells(i, 2).Value)) & "'"
dod = "'" & CDate(Trim(Cells(i, 2).Value)) & "'"
......................

Благодарю
Все работает ...