Updating SQL DB

Hi, can anyone see why my code is not updating my database table Here is the code:

Imports System.Data

Imports System.Data.SqlClient

Public Class DbConnect

Dim objConnection As New SqlClient.SqlConnection("Data Source=.\SQLExpress;Integrated Security=true;AttachDbFilename=|DataDirectory|\ImportFile.mdf;User Instance=true;")

Dim objDataAdapter As New SqlDataAdapter()

Dim objDataSet As New DataSet()

Private Sub btnConnectDB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnectDB.Click

'parse fixed width file

Using Reader As New Microsoft.VisualBasic.FileIO.TextFieldParser("\\netapp2\rs-common-d\AAA-MGM_990500024\Payrolls\Test.DAT")

While Not Reader.EndOfData

Try

Dim Fields() As String = Reader.ReadFields

Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException

MsgBox("Line " & ex.Message & _

" is not valid and will be skipped.")

Exit While

End Try

End While

End Using

End Sub

Private Sub InsertSQL(ByVal Values() As String)

Dim cmd As New SqlClient.SqlCommand()

cmd.CommandText = "INSERT INTO MgmPayroll(PlanId,SSN,FirstName,MiddleName,LastName,Elec,Comp,GrossComp,Loans,Filler,PayrollDate,TermDate,Filler2,DivisionCode,Department,DOH,DOB,Address1,Address2,CountryCode,City,State,Zip,EmpNum,Location,Match,PayRate,PayFreq,Filler3,Elec2,PriorYearComp,YTDComp,YTDEligComp,Loan2,UnionMember,UnionCode,StatusCode,Filler4,MGMExecs,PhoneNum,LocationNew,EmpNumNew,LoanId,YTDHours,PayrollFreq,PensionCode,PeriodHours,RehireDate,Filler5,FilingStatus,Exemptions,OriginalStatus,SenorityDate,MaritalStatus,Roth)Values(@PlanId,@SSN,@FirstName,@MiddleName,@LastName,@Elec,@Comp,@GrossComp,@Loans,@Filler,@PayrollDate,@TermDate,@Filler2,@DivisionCode,@Department,@DOH,@DOB,@Address1,@Address2,@CountryCode,@City,@State,@Zip,@EmpNum,@Location,@Match,@PayRate,@PayFreq,@Filler3,@Elec2,@PriorYearComp,@YTDComp,@YTDEligComp,@Loan2,@UnionMember,@UnionCode,@StatusCode,@Filler4,@MGMExecs,@PhoneNum,@LocationNew,@EmpNumNew,@LoanId,@YTDHours,@PayrollFreq,@PensionCode,@PeriodHours,@RehireDate,@Filler5,@FilingStatus,@Exemptions,@OriginalStatus,@SenorityDate,@MaritalStatus,@Roth)"

Dim p1 As New SqlClient.SqlParameter("@PlanId", Values(0))

Dim p2 As New SqlClient.SqlParameter("@SSN", Values(1))

Dim p3 As New SqlClient.SqlParameter("@FirstName", Values(2))

Dim p4 As New SqlClient.SqlParameter("@MiddleName", Values(3))

Dim p5 As New SqlClient.SqlParameter("@LastName", Values(4))

Dim p6 As New SqlClient.SqlParameter("@Elec", Values(5))

Dim p7 As New SqlClient.SqlParameter("@Comp", Values(6))

Dim p8 As New SqlClient.SqlParameter("@GrossComp", Values(7))

Dim p9 As New SqlClient.SqlParameter("@Loans", Values(8))

Dim p10 As New SqlClient.SqlParameter("@Filler", Values(9))

Dim p11 As New SqlClient.SqlParameter("@PayrollDate", Values(10))

Dim p12 As New SqlClient.SqlParameter("@TermDate", Values(11))

Dim p13 As New SqlClient.SqlParameter("@Filler2", Values(12))

Dim p14 As New SqlClient.SqlParameter("@DivisionCode", Values(13))

Dim p15 As New SqlClient.SqlParameter("@Department", Values(14))

Dim p16 As New SqlClient.SqlParameter("@DOH", Values(15))

Dim p17 As New SqlClient.SqlParameter("@DOB", Values(16))

Dim p18 As New SqlClient.SqlParameter("@Address1", Values(17))

Dim p19 As New SqlClient.SqlParameter("@Address2", Values(18))

Dim p20 As New SqlClient.SqlParameter("@CountryCode", Values(19))

Dim p21 As New SqlClient.SqlParameter("@City", Values(20))

Dim p22 As New SqlClient.SqlParameter("@State", Values(21))

Dim p23 As New SqlClient.SqlParameter("@Zip", Values(22))

Dim p24 As New SqlClient.SqlParameter("@EmpNum", Values(23))

Dim p25 As New SqlClient.SqlParameter("@Location", Values(24))

Dim p26 As New SqlClient.SqlParameter("@Match", Values(25))

Dim p27 As New SqlClient.SqlParameter("@PayRate", Values(26))

Dim p28 As New SqlClient.SqlParameter("@PayFreq", Values(27))

Dim p29 As New SqlClient.SqlParameter("@Filler3", Values(28))

Dim p30 As New SqlClient.SqlParameter("@Elec2", Values(29))

Dim p31 As New SqlClient.SqlParameter("@PriorYearComp", Values(30))

Dim p32 As New SqlClient.SqlParameter("@YTDComp", Values(31))

Dim p33 As New SqlClient.SqlParameter("@YTDEligComp", Values(32))

Dim p34 As New SqlClient.SqlParameter("@Loan2", Values(33))

Dim p35 As New SqlClient.SqlParameter("@UnionMember", Values(34))

Dim p36 As New SqlClient.SqlParameter("@UnionCode", Values(35))

Dim p37 As New SqlClient.SqlParameter("@StatusCode", Values(36))

Dim p38 As New SqlClient.SqlParameter("@Filler4", Values(37))

Dim p39 As New SqlClient.SqlParameter("@MGMExecs", Values(38))

Dim p40 As New SqlClient.SqlParameter("@PhoneNum", Values(39))

Dim p41 As New SqlClient.SqlParameter("@LocationNew", Values(40))

Dim p42 As New SqlClient.SqlParameter("@EmpNumNew", Values(41))

Dim p43 As New SqlClient.SqlParameter("@LoanId", Values(42))

Dim p44 As New SqlClient.SqlParameter("@YTDHours", Values(43))

Dim p45 As New SqlClient.SqlParameter("@PayrollFreq", Values(44))

Dim p46 As New SqlClient.SqlParameter("@PensionCode", Values(45))

Dim p47 As New SqlClient.SqlParameter("@PeriodHours", Values(46))

Dim p48 As New SqlClient.SqlParameter("@RehireDate", Values(47))

Dim p49 As New SqlClient.SqlParameter("@Filler5", Values(48))

Dim p50 As New SqlClient.SqlParameter("@FilingStatus", Values(49))

Dim p51 As New SqlClient.SqlParameter("@Exemptions", Values(50))

Dim p52 As New SqlClient.SqlParameter("@OriginalStatus", Values(51))

Dim p53 As New SqlClient.SqlParameter("@SenorityDate", Values(52))

Dim p54 As New SqlClient.SqlParameter("@MaritalStatus", Values(53))

Dim p55 As New SqlClient.SqlParameter("@Roth", Values(54))

cmd.Parameters.Add(p1)

objConnection.Open()

End Sub

Shared Sub Main()

Application.Run(New DBConnect)

End Sub

End Class