Update data dengan kunci field bertipe number

Misal kita punya table dengan struktur

1. Kode type number
2. ket type text
3. Number type autonumber
4. hapus type text

misal kita ingin mengupdate ket dengan acuan field kode maka kita set terlebih dahulu nilai dari textbox kode menjadi integer,soalnya kalau masih bertype string maka akan terjadi error

Contoh codenya :

Diterima dari textbox dan kemudian dikirm dalam bentuk function

myinsert.update(txtkode.Text, txtket.Text, "F")

Code Function updatenya :

Public Function update(ByVal brand1 As String, ByVal ket As String, ByVal hapus As String)
Dim x As Integer = CInt(brand1)
Dim mykoneksi As New accesdata.dataconnection
Dim objcommand As New OleDbCommand("update [db_brand] set brandname='" & ket & "',hapus='" & hapus & "' where brandcode= " & x & " ")
objcommand.Connection = mykoneksi.open
objcommand.ExecuteNonQuery()
mykoneksi.close()
End Function

pada number tidak disertakan karena autonumber tidak dapat diupdate.

NB: untuk field bertipe date/time tidak perlu melakukan proses conversi terlebih dahulu,sehingga langsung dikirim