[VB.NET] الاضافة لقاعدة بيانات سيكول سيرفر باستضافة مدفوعة

PHP كود :

   Public DTB As BindingSource
    Public ds As New DataSet
    Public da As New SqlDataAdapter

 Private Sub ConnectSERVER()
               Dim cmd As SqlCommand = New SqlCommand("select * from Table_TB", conns)
        da = New SqlDataAdapter(cmd)
        Dim builder As SqlCommandBuilder = New SqlCommandBuilder(da)
        da.Fill(ds, "Table_TB")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "Table_TB"
        DataGridView1.Refresh()
    End Sub


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            ConnectSERVER()
        Catch ex As Exception
            MsgBox("يوجد مشكلة بالاتصال بالسيرفر")
        End Try

   End Sub
    Sub INSERTDATA()
        Try
            Dim MAXID As Integer = Me.ds.Tables("Table_TB").Compute("Max(ID)", "ID >= 0") + "1"
            Using cmd As New SqlCommand("insert into Table_TB (ID,NAME_TB,NOTE_TB) values(@ID,@NAME_TB,@NOTE_TB)", conns)
                cmd.Parameters.AddWithValue("@ID", (MAXID))
                cmd.Parameters.AddWithValue("@NAME_TB", (TextBox3.Text))
                cmd.Parameters.AddWithValue("@NOTE_TB", (TextBox4.Text))
                conns.Open()
                cmd.ExecuteNonQuery()
                conns.Close()
            End Using
            da.Update(ds, "Table_TB")
            ds.AcceptChanges()
            MsgBox("تم الاضافه والحفظ بنجاح")
        Catch ex As Exception
            MsgBox("فشلت العملية")
        End Try
    End Sub

PHP كود :

 Sub INSERTDATA()
        Try
            Dim cmd As New SqlCommand("insert into Table_TB(NAME_TB,NOTE_TB) values(@NAME_TB,@NOTE_TB)", conns)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.AddWithValue("@NAME_TB", (TextBox3.Text))
            cmd.Parameters.AddWithValue("@NOTE_TB", (TextBox4.Text))
            conns.Open()
            cmd.ExecuteNonQuery()
            conns.Close()
            da.Update(ds, "Table_TB")
            ds.AcceptChanges()
            ConnectSERVER()
            MsgBox("نجاح وحفظ الاضافة")
        Catch ex As Exception
            MsgBox("خطا في عملية الاضافة")
        End Try
    End Sub