Getting a 'System.ArgumentException' error

        Dim newRow(5) As Object
        Dim dcIdColumn As DataColumn
        dcIdColumn = New DataColumn
        dcIdColumn.AllowDBNull = True

        Dim intX As Integer
        Me.dlgOpen.Filter = "MP3 file (*.mp3)|*.mp3|WMA Files (*.wma)|*.wma|All Files (*.*)|*.*"
        Me.dlgOpen.InitialDirectory = Application.StartupPath
        Me.dlgOpen.FilterIndex = 1
        Me.dlgOpen.Title = "Open Music File"

        'open dialog and accept user input
        If Me.dlgOpen.ShowDialog() = DialogResult.OK Then
            strCurrentFile = Me.dlgOpen.FileName
            Dim objReader As StreamReader = New StreamReader(strCurrentFile)
            objReader.Close()
            objReader = Nothing

            ' Set the values of the array.
            newRow(0) = dcIdColumn
            newRow(1) = InputBox("Enter Title")
            newRow(2) = InputBox("Enter Artist Name")
            newRow(3) = InputBox("Enter Notes, (i.e. genre)")
            newRow(4) = InputBox("Enter File Type")
            newRow(5) = strCurrentFile

            ' Add the new row to the rows collection
            Dim drNewSong As DataRow
            dtMusic.BeginLoadData()
            drNewSong = dtMusic.LoadDataRow(newRow, True)
            dtMusic.EndLoadData()
            MessageBox.Show("File added to database", "Save Complete")

            'Add to List Boxes 
            Me.lstTitle.Items.Add(newRow(1))
            Me.lstArtist.Items.Add(newRow(2))
            Me.lstNote.Items.Add(newRow(3))
            Me.lstType.Items.Add(newRow(4))
            Me.lstFileName.Items.Add(newRow(5))

        End If