احتاج لشرح كود يحتوي على بارميتر وجملةinsert SQL command

بسم الله الرحمن الرحيم والسلام عليكم ورحمة الله وبركاته ,,

الإخوة الكرام لقدر ترجمت الشرح وبحثت عن الكود في الانترنت رغبة في وجود مثال يشرح الكود ولم أجد ما يفيدني .. لذا آمل أن يتفضل أحد المبرمجين شرح الكود بالتفصيل إن أمكن .

Private Sub UpdateDemographics(ByVal customerID As Integer, _
    ByVal demoXml As String, _
    ByVal connectionString As String)

    ' Update the demographics for a store, which is stored 
    ' in an xml column.
    Dim commandText As String = _
     "UPDATE Sales.Store SET Demographics = @demographics " _
     & "WHERE CustomerID = @ID;"

    Using connection As New SqlConnection(connectionString)
        Dim command As New SqlCommand(commandText, connection)

        ' Add CustomerID parameter for WHERE clause.                                                     <------------ هنا معيار يا ليت افهم كيف يستفيد منه هل يعتمد على اسم كائن في Form أم ماذا ؟ 
        command.Parameters.Add("@ID", SqlDbType.Int)                                         
        command.Parameters("@ID").Value = customerID

        ' Use AddWithValue to assign Demographics.
        ' SQL Server will implicitly convert strings into XML.
        command.Parameters.AddWithValue("@demographics", demoXml)                            <------------ هذي دالة مفيدة ولكن بصراحة لا افهمها واتمنى اتقنها خصوصا اذا استخدمها مع جملة استعلام الاضافة 

        Try
            connection.Open()
            Dim rowsAffected As Integer = command.ExecuteNonQuery()
            Console.WriteLine("RowsAffected: {0}", rowsAffected)

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Using
End Sub

رابط الكود : http://msdn.microsoft.com/en-us/library/system.data.sqlclient.sqlparametercollection.addwithvalue.aspx

وهذا كود شبيه بالكود السابق يا سلام لو يتم شرحه أيضا :)

01
    Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsert.Click
02
        Dim sql As String
03
        sql = "Insert into Players (playerno, name, birth_date) Values (@PlayerNo, @Name, @Birth_Date)"
04
        Dim cmd As New OleDbCommand(sql, cn)
05
        cmd.parameters.addwithvalue("@Name", txtPlayerName.Text)
06
        cmd.parameters.addwithvalue("@Birth_Date", txtBirthDate.Text)                          <------------ وش المفيد في هذه الدالة ولماذا يضيف @ قبل اسم الكائن وهل هو يعتمد على بيانات في كائن موجود في Form  هل كلامي صحيح ؟ 
07
        cmd.parameters.addwithvalue("@PlayerNo", txtPlayerNo.Text)
08
'        MsgBox(sql)
09
        If cn.State <> ConnectionState.Open Then cn.Open()
10
        cmd.ExecuteNonQuery()
11
    End Sub