update field auto number

Question

nanya gan,,, gimana cara nya update field auto number ,soalnya kalau auto field auto number tidak di sertakan muncul eror "Data type mismatch in criteria expression."

ini script nya

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim cmd As New OleDb.OleDbCommand
        Dim sqlii As String
        Dim a As String
        Dim b As String
        a = "INPUT"
        b = "EDIT"
        If Label1.Text = a Then
            If Not OleDbConnection1.State = ConnectionState.Open Then OleDbConnection1.Open()
            sqlii = "INSERT INTO tbl_resep(id_dokter,tgl_resep,nama_pasien,umur,keterangan) VALUES " &
                "('" & asl_resep.Text & "','" & DateValue(tgl_resep.Value) & "','" & nama_pasien.Text & "','" & umur.Text & "','" & keterangan.Text & "')"
        ElseIf Label1.Text = b Then
            If Not OleDbConnection1.State = ConnectionState.Open Then OleDbConnection1.Open()
            sqlii = "UPDATE tbl_resep SET id_dokter = '" & asl_resep.Text & "',tgl_resep ='" & DateValue(tgl_resep.Value) & "',nama_pasien ='" & nama_pasien.Text & "',umur ='" & umur.Text & "',keterangan ='" & keterangan.Text & "' WHERE no_resep = '" & TextBox1.Text & "' "
        End If
        cmd.Connection = OleDbConnection1
        cmd.CommandText = sqlii
        Dim i As Integer = cmd.ExecuteNonQuery()
        If (i > 0) Then
            MessageBox.Show("data tersimpan", "selamat", MessageBoxButtons.OK)
            refreshDatagridd()
        Else
            MessageBox.Show("data gagal tersimpan", "perhatian", MessageBoxButtons.OK)
        End If
        OleDbConnection1.Close()
    End Sub

ini type data di database

no_resep AutoNumber
id_dokter Angka
tgl_resep Tanggal/Waktu

umur Angka

keterangan tekssingkat