trying to insert records into SQL database -

        Dim AllStamps As New DataSet("StampOrganizer")
        Dim workTable As DataTable = AllStamps.Tables("StampStaticInfo")
        Dim Fields() As String
        Dim InputFile As FileIO.TextFieldParser
        Dim ConnectionString As String
        Dim n%

        ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Stamps.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
        Dim conn As New SqlConnection(ConnectionString)

        Dim cmd As New SqlCommand
        cmd.Connection = conn

        ''''''''''''''''''''''''''''''''''''''''''
        ' Add rows to Table via flat .txt file
        ''''''''''''''''''''''''''''''''''''''''''
        InputFile = My.Computer.FileSystem.OpenTextFieldParser(InFile$, vbTab)

        Do While Not InputFile.EndOfData
            Fields = InputFile.ReadFields
            For n% = 0 To 2
                Fields(n%) = Replace(Fields(n%), "'", "`")
            Next
            cmd.CommandText = "INSERT INTO StampStaticInfo (ScottNo,Denomination,Description)" & _
                " VALUES ('" & Fields(0) & "'," & Fields(1) & "," & "'" & Fields(2) & "')"
            conn.Open()
            n% = cmd.ExecuteNonQuery()
            conn.Close()
        Loop

        InputFile.Close()