use o & ao invés do + para colocar as variaveis outro detalhe strAtual = "UPDATE lotes SET status_lote = '" + varStatus + "', con_lote = " + varNum + ", data_lote = '" + varData + "', obs_lote = '" + varObs + "' WHERE id_lote = " + varId + " "
Set rsAtual = Banco.Execute(sqlLote)
tente
strAtual = "UPDATE lotes SET status_lote ='"&varStatus&"', con_lote = "& varNum & ", data_lote = '" & varData & "', obs_lote = '" & varObs & "' WHERE id_lote =&varId
Set rsAtual = Banco.Execute(strAtual)