 
INScomm = New OleDbCommand("INSERT INTO ARCUS_Import_BU SET" & _ " (IDCUST,AUDTDATE,AUDTTIME,AUDTUSER,AUDTORG,TEXTSNAM,IDGRP, " & _ "IDNATACCT,SWACTV,DATEINAC,DATELASTMN,SWHOLD,DATESTART," & _ "IDPPNT,CODEDAB,CODEDABRTG,DATEDAB, NAMECUST,TEXTSTRE1,"
"CCTYPE) VALUES( , , , , , , , , , , , , , , , , , , , " & _ ", , , , , , , , , , , , , , , , , , , , )")
INScomm.Parameters.Add("IDCUST", OleDbType.Char, 12, From_DS.Tables("ARCUS_Import").Rows(i).Item(0)) INScomm.Parameters.Add("AUDTDATE", OleDbType.Date, 8, From_DS.Tables("ARCUS_Import").Rows(i).Item(1)) INScomm.Parameters.Add("AUDTTIME", OleDbType.DBTime, 12.0, From_DS.Tables("ARCUS_Import").Rows(i).Item(2)) INScomm.Parameters.Add("AUDTUSER", OleDbType.Char, 8, From_DS.Tables("ARCUS_Import").Rows(i).Item(3)) INScomm.Parameters.Add("AUDTORG", OleDbType.Char, 6, From_DS.Tables("ARCUS_Import").Rows(i).Item(4)) INScomm.Parameters.Add("TEXTSNAM", OleDbType.Char, 10, From_DS.Tables("ARCUS_Import").Rows(i).Item(5)) INScomm.Parameters.Add("IDGRP", OleDbType.Char, 6, From_DS.Tables("ARCUS_Import").Rows(i).Item(6)) INScomm.Parameters.Add("IDNATACCT", OleDbType.Char, 12, From_DS.Tables("ARCUS_Import").Rows(i).Item(7)) INScomm.Parameters.Add("SWACTV", OleDbType.Integer, 12, From_DS.Tables("ARCUS_Import").Rows(i).Item(8)) INScomm.Parameters.Add("DATEINAC", OleDbType.Date, 10.0, From_DS.Tables("ARCUS_Import").Rows(i).Item(9)) INScomm.Parameters.Add("DATELASTMN", OleDbType.Date, 8, From_DS.Tables("ARCUS_Import").Rows(i).Item(10)) INScomm.Parameters.Add("SWHOLD", OleDbType.Integer, 12, From_DS.Tables("ARCUS_Import").Rows(i).Item(11)) INScomm.Parameters.Add("DATESTART", OleDbType.Date, 8, From_DS.Tables("ARCUS_Import").Rows(i).Item(12)) INScomm.Parameters.Add("IDPPNT", OleDbType.Char, 12, From_DS.Tables("ARCUS_Import").Rows(i).Item(13)) INScomm.Parameters.Add("CODEDAB", OleDbType.Char, 9, From_DS.Tables("ARCUS_Import").Rows(i).Item(14)) INScomm.Parameters.Add("CODEDABRTG", OleDbType.Char, 5, From_DS.Tables("ARCUS_Import").Rows(i).Item(15)) INScomm.Parameters.Add("DATEDAB", OleDbType.Date, 8, From_DS.Tables("ARCUS_Import").Rows(i).Item(16)) INScomm.Parameters.Add("NAMECUST", OleDbType.Char, 60, From_DS.Tables("ARCUS_Import").Rows(i).Item(17)) INScomm.Parameters.Add("TEXTSTRE1", OleDbType.Char, 60, From_DS.Tables("ARCUS_Import").Rows(i).Item(18))
INScomm.Parameters.Add("CCTYPE", OleDbType.Char, 12, From_DS.Tables("ARCUS_Import").Rows(i).Item(19))
