Nel database ho un campo visibile (Tipo dati SI/NO) con valore predefinito in vero - True

Nel form per modificare il valore ho inserito una select

<select name="visibile" size="1">
<%
Dim valore
valore = True
%>
<%
If valore=objRs("visibile") Then
%>
<option selected value="True">True</option>
<option value="False">False</option>
<%
Else
%>
<option value="True">True</option>
<option selected value="False">False</option>
<%
End If
%>
</select>

Il valore viene ripreso con:
visibile_barca = replace(Request.Form("visibile"),"'", "''")

il valore lo inserisco nel database con:
strSql = "UPDATE barche SET nome_barca = '"& nome &"' , modello = '"& modello &"' , posizione = '"& posiz &"' , visibile = '"& visibile_barca &"' WHERE ID_barca ="& Session("idbarca")'

Mi riporta l'errore :
Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

Come mai?

Ciao.
Federico