oleConnectDBF.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurDir() & ";Extended Properties=dBASE IV;User ID=Admin;Password="

        While reader.Read()
            oleCommandaDBF.Connection = oleConnectDBF
            oleCommandaDBF.CommandType = CommandType.Text

            oleCommandaDBF.CommandText = "INSERT INTO imputINN values (" & i & ",'2010-01-01'," & reader.GetValue( 1 ) & ",'" & reader.GetValue(2) & "'," & reader.GetValue( 3 ) & "," & reader.GetValue( 4 ) & "," & reader.GetValue( 5 ) & "," & reader.GetValue( 6 ) & "," & reader.GetValue( 7 ) & "," & reader.GetValue( 8 ) & "," & reader.GetValue( 9 ) & "," & reader.GetValue( 10 ) & "," & reader.GetValue( 11 ) & "," & reader.GetValue( 12 ) & "," & reader.GetValue( 13 ) & "," & reader.GetValue( 14 ) & "," & reader.GetValue( 15 ) & "," & reader.GetValue( 16 ) & "," & reader.GetValue( 17 ) & ",'2010-02-01')"

            oleCommandaDBF.ExecuteNonQuery()

            oleCommandaDBF.Dispose()
            i = i +  1 
        End While

INSERT INTO imputINN values ( 1 ,'2010-01-01', 00651 ,'ООО "ЕТС"', 243088705159 , 275 . 2 , 229 . 3 , 45 . 86 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 ,ПН,'2010-02-01')

CREATE TABLE imputINN (NPP string( 6 ),DATEV DATE,NUM string( 50 ),NAZP string( 200 ),IPN string( 20 ),ZAGSUM NUMERIC( 16 ),VART7 NUMERIC( 16 ),SUM8 NUMERIC( 16 ),VART9 NUMERIC( 16 ),SUM10 NUMERIC( 16 ),VART11 NUMERIC( 16 ),SUM12 NUMERIC( 16 ),VART13 NUMERIC( 16 ),SUM14 NUMERIC( 16 ),PKRED NUMERIC( 3 ),NREZ NUMERIC( 2 ),KOR NUMERIC( 2 ),WMDTYPE NUMERIC( 2 ),WMDTYPESTR String( 4 ),DTVP DATE )