Erro na inserção na base de dados - Visual Basic

[Woodstock^^]

Boas já tentei varias maneiras e está sempre a dar um erro que diz "ERROR [22018] [Microsoft][Controlador Microsoft Access de ODBC] Tipo de dados incorrecto na expressão de critérios."
Será que alguem me consegue ajudar?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim valor As Integer
valor = 0
If Integer.TryParse(TextBox2.Text, valor) = True And TextBox1.Text = 16 Then
cmd = New Odbc.OdbcCommand("update quartos set ocupante = ('" + valor.ToString() + "') where numero='16'", cn)
cmd.ExecuteNonQuery()
Else
MessageBox.Show("Insira um valor na caixa")
End If
End Sub

 

[Woodstock^^]

Também já tentei assim e dá sempre o mesmo erro

Dim valor As String
valor = TextBox2.Text
If TextBox1.Text = 16 Then
cmd = New Odbc.OdbcCommand("update quartos set ocupante = ('" + valor.ToString() + "') where numero='16'", cn)
cmd.ExecuteNonQuery()
Else
MessageBox.Show("Insira um valor na caixa")
End If

 

[paulo.correia]

Também já tentei assim e dá sempre o mesmo erro

Tira as plicas do 16

 

[Woodstock^^]

Obrigado, já dá.

Cumps