Visual Basic - COMO HAGO EL SELECT. S O C O R R O¡¡¡¡¡¡

HABER SI ME ECHAN LA MANO TENGO QUE ACTUALIZAR UN REGISTRO PERO CUANDO LE PASO EL PARAMETRO DEL TEXTBOX AL SELECT ME DICE QUE la sintaxis es incorrecta. o bien
invalid column name a.

este es el programa

Public folio%
folio=val(text1)

Private Sub update_Click()
Dim a As Integer
Set Conexion = CreateObject("ADODB.Connection")
Set Tabla = CreateObject("ADODB.recordset")
Conexion.Open ("DSN=vir;UID=sa;PWD=veramx")
a = Val(Tstatus)'TSTATUS ES EL TEXTBOX
Temp = "update status set status= a where folio_de_servicio=" & folio
Tabla.Open Temp, Conexion
MsgBox "Status Actualizado correctamente, Verifique la Actualizacion"
menu3 True
End Sub

Si cambio el valor de la a por un numero me actualiza bien, el pex es que cuando le paso el parametro que es un valor que proviene de un text box me manda que la sintaxis esta mal.

saluos

a es una variable y la tienes que pones entrecomillada.
Prueba a poner la 'a' de la siguiente forma:

='" & a & "'

Temp = "update status set status='" & a & "' where folio_de_servicio=" & folio

si te falla así pureba a cambiar las comillas.

suerte.

Funciono gracias