Errore di runtime su query db sql server

[wegawhite]

Ragazzi, cosa c'è di sbagliato in questa query, perchè restituisce errore?:

Costruttore = Request.form("Costruttore") 

DIM ARR_DALFORM
ARR_DALFORM = split(Costruttore, "-")
Costruttore0 = ARR_DALFORM(0)
response.write Costruttore0 &"
"
Costruttore1 = ARR_DALFORM(1)
response.write Costruttore1 &"
"

strSQL = "select * From tbl WHERE 1=1"

If Costruttore1 <> 0 then
   strSQL = strSQL & " AND Costruttore = '"& Costruttore1 &"' "
End if

Errore:

9-BBB
9
BBB

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: "BBB"]'

/software.asp, line 132