Fel på uppdate(checkboxar)

Jag får fel på denna uppdaten. Jag tror att det är checkboxarna som trilskas men jag lyckas inte att fixa det.
Jag kör SQL 2000 server.

SQL = "Update t_Kunder
Set Kundkategori=
(SELECT KundKat_Id FROM t_KundKategori
WHERE KundKategori='" & Combo2.
Text & "'),Firma='" & Text1(0) & "',
Namn ='" & Text1(1) & "',
Box = '" & Text1(2) & "',
Adress = '" & Text1(3) & "',
PostOrt = '" & Text1(4) & "',
Tel = '" & Text1(5) & "',
Mobil = '" & Text1(6) & "',
Fax = '" & Text1(7) & "',
URL = '" & Text1(9) & "',
Epost = '" & Text1(10) & "',
EjLjud = " & Check1.Value & ",
Info = " & Check2.Value & ",
SkickCD = " & Check3.
Value & ",
Anteck = '" & Text1(8) & "'
WHERE kundID = " & strListText & ""

Jag får ett error som säger att det är fel på "="...

Vilken datatyp använder du för EjLjud ?

Om det är bit så måste värdet vara 1 eller 0

t.ex.

if check1.value <> "" then
   ejLjud = 1
else
   ejLjud = 0
end if
if check1.value <> "" then
   info = 1
else
   info = 0
end if
if check1.value <> "" then
   skickCD = 1
else
   skickCD = 0
end if
SQL = "Update t_Kunder
Set Kundkategori=
(SELECT KundKat_Id FROM t_KundKategori
WHERE KundKategori='" & Combo2.
Text & "'),Firma='" & Text1(0) & "',
Namn ='" & Text1(1) & "',
Box = '" & Text1(2) & "',
Adress = '" & Text1(3) & "',
PostOrt = '" & Text1(4) & "',
Tel = '" & Text1(5) & "',
Mobil = '" & Text1(6) & "',
Fax = '" & Text1(7) & "',
URL = '" & Text1(9) & "',
Epost = '" & Text1(10) & "',
EjLjud = " & ejLjud & ",
Info = " & info & ",
SkickCD = " & skickCD & ",
Anteck = '" & Text1(8) & "'
WHERE kundID = " & strListText & ""

Exakt hur lydde felmeddelandet?

Tack LarsG, med en smärre förändring så tycks det fungera.

If Check1 = Checked Then
ejLjud = 1
Else
ejLjud = 0
End If

If Check2 = Checked Then
info = 1
Else
info = 0
End If
If Check3 = Checked Then
skickCD = 1
Else
skickCD = 0
End If

Ja datatypen är Bit

Än en gång tack