Visual Basic - Er

ue pasa con los campos boolean o logicos de access, al convertir la base de datos lo paso como tinyint(1)
me marca un error en visual basic (458-la variable usa un tipo de automatizacion no admitido en visual basic)

el error aparece al hacer :
if rstabla.fields("campo")=1 then
campo= tinyint(1)

gracias de antemano