[RESOLVED] Cannot pass a DBNULL parameter using OLEDB

[wild_bill]

Try this

If sSubcat = "" Then
 cmd.Parameters.AddWithValue("SubCategory", DBNull.Value)
 Else
 cmd.Parameters.AddWithValue("SubCategory", sSubcat)
 End If