Final version. I think I have it.
Code:
            '------------------------------------
            'NEXT, ADD RECORDS TO PAYROLLMASTER
            '------------------------------------
            '
            Dim filetoparse As String
            Dim strreader As StreamReader
            strreader = New StreamReader("z:\PR\PAYROLLMASTER.csv")
            filetoparse = strreader.ReadLine
            Dim cnxn2 As SqlClient.SqlConnection
            cnxn2 = New SqlClient.SqlConnection(cnxnstring)
            cnxn2.Open()
            Dim sqlInsert As New SqlClient.SqlCommand
            While strreader.Peek <> -1
                Dim fieldarray() As String = filetoparse.Split(",")
                '
                sqlInsert.CommandText = "INSERT INTO PAYROLLMASTER ([EMPLOYEEID],[LASTNAME],[FIRSTNAME],[MIDDLENAME],[SSN]) "
                sqlInsert.CommandText += "VALUES(@employeeid,@lastname,@firstname,@middlename,@ssn)"
                sqlInsert.Parameters.AddWithValue("@employeeid", fieldarray(0))
                sqlInsert.Parameters.AddWithValue("@lastname", fieldarray(1))
                sqlInsert.Parameters.AddWithValue("@firstname", fieldarray(2))
                sqlInsert.Parameters.AddWithValue("@middlename", fieldarray(3))
                sqlInsert.Parameters.AddWithValue("@ssn", fieldarray(4))
                sqlInsert.ExecuteNonQuery()
            End While
            sqlInsert.Dispose()
            cnxn2.Close()
            cnxn2.Dispose()
            strreader.Close()
            '=============