VB Code:
b.InsertCommand = New SqlClient.SqlCommand("INSERT INTO Pay([Voucher Date], [Voucher Number], [Company Code], " + _
"[Start Date],[End Date], PEC, [Country Code], Amount, [Component of Pay], Grade, O4E, CBPO, PAS, SSN, " + _
"TCC, [Order Number], [Travel Days], Zip, [AD Days], [Inactive Duty Periods], [Duty Type], TID, [Pgm Source], " + _
"PG1, PG2, [Tax Auth], Col106, ContID) VALUES(@VDate, @VNumber, @Compcode, @SDate, @EDate, @PEC, @CountryCode, " + _
"@Amnt, @COP, @Grade, @O4E, @CBPO, @PAS, @SSN, @TCC, @ONumber, @TDays, @Zip, @ADDays, @DPeriods, @DType, @TID, @PSource, " + _
"@PG1, @PG2, @TaxAuth, @Col106, @ContID)", _
b.SelectCommand.Connection)
With b.InsertCommand.Parameters
.Add("@VDate", SqlDbType.NVarChar, 6, "Voucher Date")
.Add("@VNumber", SqlDbType.NVarChar, 6, "Voucher Number")
.Add("@Compcode", SqlDbType.NVarChar, 7, "Company Code")
.Add("@SDate", SqlDbType.NVarChar, 6, "Start Date")
.Add("@EDate", SqlDbType.NVarChar, 6, "End Date")
.Add("@PEC", SqlDbType.NVarChar, 6, "PEC")
.Add("@CountryCode", SqlDbType.NVarChar, 2, "Country Code")
.Add("@Amnt", SqlDbType.NVarChar, 9, "Amount")
.Add("@COP", SqlDbType.NVarChar, 2, "Component of Pay")
.Add("@Grade", SqlDbType.NVarChar, 2, "Grade")
.Add("@O4E", SqlDbType.NVarChar, 1, "O4E")
.Add("@CBPO", SqlDbType.NVarChar, 2, "CBPO")
.Add("@PAS", SqlDbType.NVarChar, 6, "PAS")
.Add("@SSN", SqlDbType.NVarChar, 9, "SSN")
.Add("@TCC", SqlDbType.NVarChar, 2, "TCC")
.Add("@ONumber", SqlDbType.NVarChar, 12, "Order Number")
.Add("@TDays", SqlDbType.NVarChar, 1, "Travel Days")
.Add("@Zip", SqlDbType.NVarChar, 5, "Zip")
.Add("@ADDays", SqlDbType.NVarChar, 4, "AD Days")
.Add("@DPeriods", SqlDbType.NVarChar, 2, "Inactive Duty Periods")
.Add("@DType", SqlDbType.NVarChar, 2, "Duty Type")
.Add("@TID", SqlDbType.NVarChar, 3, "TID")
.Add("@PSource", SqlDbType.NVarChar, 1, "Pgm Source")
.Add("@PG1", SqlDbType.NVarChar, 1, "PG1")
.Add("@PG2", SqlDbType.NVarChar, 1, "PG2")
.Add("@TaxAuth", SqlDbType.NVarChar, 2, "Tax Auth")
.Add("@Col106", SqlDbType.NVarChar, 1, "Col106")
.Add("@ContID", SqlDbType.NVarChar, 4, "ContID")
End With