Originariamente inviato da MItaly
codice:
Public Function convbool(ByVal instring As String) As Boolean
    If UCase(instring)="VERO" Then convbool=True Else convbool=False
End Function
'...
check1.value=Abs(convbool(data1.recordset.fields("valore")))
Buona soluzione, anche se magari eviterei di usare la funzione Abs modificando la funzione di conversione:
codice:
Public Function convbool(ByVal instring As String) As integer
    If UCase(instring)="VERO" Then convbool=1 Else convbool=0
End Function

check1.value=convbool(data1.recordset.fields("valore"))
oppure fare tutto in una riga...
check1.value=Abs(Ucase(data1.recordset.fields("val ore"))="VERO")