For l=0 To allFields.Length -1
If allFields(l)=" " Then
allFields(l)=Null
End If
Next
updateSQL.ExecNonQuery2 ("INSERT INTO myTable VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object _
(allFields(1),allFields(2),allFields(3),allFields(4),allFields(5),allFields(6),allFields(7),allFields(8),allFields(9),allFields(10), _
allFields(11),allFields(12),allFields(13),allFields(14),allFields(15),allFields(16),allFields(17),allFields(18),allFields(19),allFields(20), _
allFields(21),allFields(22),allFields(23),allFields(24),allFields(25),allFields(26),allFields(27),allFields(28),allFields(29),allFields(30), _
allFields(31),allFields(32),allFields(33),allFields(34),allFields(35),allFields(36)))