Привет!

Option Explicit
Dim cn As New rdoConnection
Dim rs As rdoResultset
Dim rs_insert As rdoResultset
Dim i As Long
Dim SQL As String
Dim SQL_select As String, SQL_insert As String

Private Sub Command1_Click()
Dim strOEM_NAMS As String
Dim strWIN_NAMS As String
Dim dbf As dbf
Set dbf = New dbf
cn.Connect = "SourceType=DBF;" _
& "SourceDB=C:\dbf;" _
& "Driver={Microsoft Visual FoxPro Driver}"

cn.CursorDriver = rdUseOdbc
cn.EstablishConnection "rdDriverNoPrompt"

SQL = "create table C:\dbf\test.dbf (SAB Char(4)not null, NLS Char(14) not null, NAMS Char(38) not null, DAOPL D(8) not null)"
Set rs = cn.OpenResultset(SQL, rdOpenKeyset, rdConcurRowVer)
rs.Close

SQL_select = "select SAB, NLS, NAMS, DAOPL from VW"
Set rs = cn.OpenResultset(SQL_select, rdOpenKeyset, rdConcurRowVer)
For i = 1 To rs.RowCount

strOEM_NAMS = rs(2)
strWIN_NAMS = String(Len(strOEM_NAMS), " ")
OemToChar strOEM_NAMS, strWIN_NAMS

SQL_insert = "insert into test.dbf (SAB, NLS, NAMS, DAOPL) VALUES ('" & rs(0) & "', '" & rs(1) & "', '" & strWIN_NAMS & "', {^" & Right(rs(3), 4) & "." & Mid(rs(3), 4, 2) & "." & Left(rs(3), 2) & "})"

cn.Execute SQL_insert
rs.MoveNext
Next i
MsgBox "Done"
End Sub

Собственно все вроде работает данные вставляет так как надо НО
на определенном моменте выскакивает ошибка:
Причем если ставишь начало цикла с той записи где заглючило
через некоторое время с тем же промежутком опять ошибка.
КТО знает ПОМОГИТЕ!

вот строка:
insert into test.dbf (SAB, NLS, NAMS, DAOPL) VALUES ('OOQC', '31426000800036', 'МАР'°ВСЬКА С/Р ЗФ МБ ', {2006.01.13})

Если даже командно не создавать таблицу
а использовать уже созданную все равно ошибка через некоторое время

{^YYYYMMDD} для данных в типе Date

Все увидел Спасибо!
Апостроф все запортил.