Insert INTO DBF - VB

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