Aşağıdaki kodda hata alıyorum.bir çözüm bulan var mı ?

"kayan" isimli alanım evet/hayır tipinde.

Dim urunadi, urunresim, eklenmetarihi As String
Dim KAYAN As Boolean

urunadi = urunaditext.Text
eklenmetarihi = Now
If kayanresimchk.Checked = "True" Then
KAYAN = True
Else
KAYAN = False
End If

If resimup.FileName = "" Then
urunresim = "urunler\" + "resimyok.jpg"
End If
If resimup.FileName <> "" Then
resimup.SaveAs(Server.MapPath("urunler\" + resimup.FileName))
urunresim = "urunler\" + resimup.FileName
End If

sorgu.Connection = baglanti
sorgu.CommandText = "insert into urunler(urunadi,eklenmetarihi,urunresim,kayan) values ('" & urunadi & "','" & eklenmetarihi & "','" & urunresim & "','" & KAYAN & "')"
sorgu.ExecuteNonQuery()