سلام از فایل ضمیمه استفاده کردم
    '-----------------کلید ذخیره



    Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click

        'Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value = Me.pktxtbx.Text

        'Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value = Me.usrtxtbox.Text

        'Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value = Me.passtxtbox.Text

        'Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value = Me.adminchkbox.Checked

        'Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value = Me.ADchkbox.Checked

        Dim con As OleDbConnection = New OleDbConnection(cnString)

        Dim command As New OleDbCommand

        command.Connection = con

        command.CommandText = "update Users set PK=@PK , UserID=@UserID ,Password=@Password , where pk = '" & pktxtbx.Text & "'"

        command.Parameters.AddWithValue("pk", Trim(pktxtbx.Text))

        command.Parameters.AddWithValue("UserID", Trim(usrtxtbox.Text))

        command.Parameters.AddWithValue("Password", Trim(passtxtbox.Text))

        con.Open()

        command.ExecuteNonQuery()

        con.Close()

        DataGridView1.Refresh()

    End Sub


خطا میده و آپدیت ارور میده....اینم عکس خطا
Untitled.jpg