[RESOLVED] Save boolean value to MS Database

[Tengkorak]

hi,
i have problem when save boolean value to database.
this my code :

if bAdd then 
     scmd.CommandText = "insert into products(prod_id,status) values(@prod_id,@status)"
else
     scmd.CommandText = "update products set status=@status where prod_id=@prod_id"
end if
 
scmd.Parameters.Add(New OleDbParameter("@status", CBool(chkStatus.Checked)))
 
scmd.Connection = dbConn
Dim iResult As Integer = scmd.ExecuteNonQuery

i get problem when execute query at line

scmd.ExecuteNonQuery

Data type mismatch in criteria expression