[عنوان معدل]مشكلة في برنامج دليل الهاتف

PHP كود :
Public Class Form1

    Public cnn As New OleDb.OleDbConnection("Provider=Microsoft.Ace.Oledb.12.0; Data Source=" & Application.StartupPath & "\Directoryphone.accdb")



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.RefreshData()

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Val(Me.TextBox1.Text) = 0 Then

            Dim sql As String
            sql = " INSERT INTO [Names] ( [Name], [Number], [Address] ) " & _
                  "              VALUES (  @Name,  @Number,  @Address  ) "

            Dim cmd As New OleDb.OleDbCommand(sql, cnn)
            cmd.Parameters.AddWithValue("@Name    ", Me.TextBox2.Text)
            cmd.Parameters.AddWithValue("@Number  ", Me.TextBox3.Text)
            cmd.Parameters.AddWithValue("@Address ", Me.TextBox4.Text)

            cnn.Open()
            cmd.ExecuteNonQuery()
            cnn.Close()

        Else
            Dim sql As String
            sql = " UPDATE [Names]              " & _
                  "                             " & _
                  "    SET [Name]    = @Name,   " & _
                  "        [Number]  = @Number, " & _
                  "        [Address] = @Address " & _
                  "                             " & _
                  "  WHERE [sr] =  @sr          "

            Dim cmd As New OleDb.OleDbCommand(sql, cnn)
            cmd.Parameters.AddWithValue("@Name    ", Me.TextBox2.Text)
            cmd.Parameters.AddWithValue("@Number  ", Me.TextBox3.Text)
            cmd.Parameters.AddWithValue("@Address ", Me.TextBox4.Text)
            cmd.Parameters.AddWithValue("@sr      ", Me.TextBox1.Text)

            cnn.Open()
            cmd.ExecuteNonQuery()
            cnn.Close()

        End If

        RefreshData()

    End Sub


    Private Sub RefreshData()

        Dim sql As String
        sql = " SELECT *        " & _
              "   FROM [Names]  " & _
              "  ORDER BY [sr]  "

        Dim da As New OleDb.OleDbDataAdapter(sql, cnn)
        Dim dt As New DataTable
        da.Fill(dt)

        Me.DataGridView1.DataSource = dt

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""

    End Sub

 
End Class