[Resolvido]Marca verdadeiro ou falso em caixa sim ou nao SQL

ola preciso marcar como verdadeiro este codigo abaixo... ja tentei colocar -1, true, verdadeiro mas nao funcionou



Dim X As Double
Dim Z

Z = True

X = Me.Cod_Viagem_Carga_Tempo

CurrentDb.Execute "UPDATE tbl_Lead_Time_Viagem_Tempo SET Baixar='" & Z & "' WHERE cod_viagem_Carga='" & X & "'"

resolvido

Código:

    Dim StrSQLX As String
   
    StrSQLX = "Update tbl_Lead_Time_Viagem_Tempo SET Baixar= '-1' Where Cod_Viagem_Carga=" & Me.Cod_Viagem_Carga_Tempo
    CurrentDb.Execute StrSQLX