need help guys any idea would be a good help for me Im just starting vb.net
I cant update my database I know that there is something wrong here...
God Bless U All


Code:
 Public Sub ConnectXML(ByVal strURL As String)

        'database 

        Dim jinObjConnection As SqlConnection = GetConnection()
        jinObjConnection.Open()
        Dim strSelectQuery As String = "SELECT * FROM tbl_channel"
        Dim jinObjAdapter = New SqlClient.SqlDataAdapter(strSelectQuery, jinObjConnection)
        Dim strInsertQuery As New SqlCommand("INSERT INTO tbl_channel VALUES(@[Title],@[Description],@[URL],@[LastUpdated],@[TitleID])", jinObjConnection)
        'Dim jinDataset As New DataSet

        strInsertQuery.Parameters.Add("@[Title]", SqlDbType.Text, 50, "[Title]")
        strInsertQuery.Parameters.Add("@[Description]", SqlDbType.Text, 50, "[Description]")
        strInsertQuery.Parameters.Add("@[URL]", SqlDbType.Text, 50, "[URL]")
        strInsertQuery.Parameters.Add("@[LastUpdated]", SqlDbType.DateTime, 8, "[LastUpdated]")
        strInsertQuery.Parameters.Add("@[TitleID]", SqlDbType.BigInt, 20, "[TitleID]")

        jinObjAdapter.InsertCommand = strInsertQuery
        jinObjAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
        Dim jinTable As New DataTable
        jinObjAdapter.FillSchema(jinTable, SchemaType.Source)
        Dim jinDataRow As DataRow = jinTable.NewRow

        Dim myRequestURL As WebRequest = WebRequest.Create(strURL)
        Dim myResponse2URL As WebResponse = myRequestURL.GetResponse
        Dim Rss_StreamReader As Stream = myResponse2URL.GetResponseStream
        Dim Rss_object As New StreamReader(Rss_StreamReader)
        Dim Rss_document As New XmlDocument
        On Error Resume Next
        Rss_document.LoadXml(Rss_object.ReadToEnd)
        Dim RssItems_xml As XmlNodeList = Rss_document.SelectNodes("rss/channel/item")
        For intCounter = 0 To RssItems_xml.Count - 1

            ' for every node that is being read and loaded 
            Dim RssDetails As XmlNode

            RssDetails = RssItems_xml.Item(intCounter).SelectSingleNode("title")

            If RssDetails.Equals(Nothing) = False Then

                jinDataRow("Title") = RssDetails.InnerText
            Else
                jinDataRow("Title") = Nothing
            End If

            RssDetails = RssItems_xml.Item(intCounter).SelectSingleNode("description")

            If RssDetails.Equals(Nothing) = False Then
                jinDataRow("Description") = RssDetails.InnerText
            Else
                jinDataRow("Description") = Nothing
            End If

            RssDetails = RssItems_xml.Item(intCounter).SelectSingleNode("link")

            If RssDetails.Equals(Nothing) = False Then
                jinDataRow("URL") = RssDetails.InnerText
            Else
                jinDataRow("URL") = Nothing
            End If

            jinDataRow("LastUpdated") = Now
            jinDataRow("TitleID") = intTitle
            jinTable.Rows.Add(jinDataRow)
            'jinDataset.Tables(0).Rows.Add(jinDataRow)
            jinObjAdapter.Update(jinTable)
            'jinDataset.AcceptChanges()
        Next
        '
        ' jinObjAdapter.Dispose()
        'jinObjConnection.Close()
        'jinObjConnection.Dispose()
        ' xml 
    End Sub