Kan någon lösa detta?

Har en sida där man fyller i kunduppgifter. Men om jag inte fyller i ett fält så får jag ett felmeddelande.
--------------------------
Field 'Contacts.Title' cannot be a zero-length string.
---------------------------

Här är koden:

<!--#include virtual="/ha/adovbs.inc"-->
<%

Set Connect = CreateObject("ADODB.Connection")
Connect.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\\Inetpub\\cgi-bin\\ha\\contact.mdb")
Set RecSet = CreateObject("ADODB.RecordSet")
Addera = "SELECT \* FROM Contacts"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("FirstName") = Request.Form("firstname")
RecSet("Company") = Request.Form("company")
RecSet("LastName") = Request.Form("lastname")
RecSet("MiddleName") = Request.Form("middlename")
RecSet("HomeStreetAddress") = Request.Form("homestreetaddress")
RecSet("NickName") = Request.Form("nickname")
RecSet("HomeZipCode") = Request.Form("homezipcode")
RecSet("WorkStreetAddress") = Request.Form("workstreetaddress")
RecSet("HomeCity") = Request.Form("homecity")
RecSet("WorkZipCode") = Request.Form("workzipcode")
RecSet("HomeCountry") = Request.Form("homecountry")
RecSet("WorkCity") = Request.Form("workcity")
RecSet("HomePhone") = Request.Form("homephone")
RecSet("WorkCountry") = Request.Form("workcountry")
RecSet("WorkPhone") = Request.Form("workphone")
RecSet("WorkFax") = Request.Form("workfax")
RecSet("EmailAddress") = Request.Form("Emailaddress")
RecSet("JobTitle") = Request.Form("jobtitle")
RecSet("Department") = Request.Form("department")
RecSet("Office") = Request.Form("office")
RecSet("When") = Request.Form("when")
RecSet("Title") = Request.Form("title")
RecSet("BusinessFax") = Request.Form("businessfax")
RecSet("Workpager") = Request.Form("workpager")
RecSet("Notes") = Request.Form("notes")


RecSet.Update						
RecSet.Close
Connect.Close

%>

Har en känsla av att det kan bero på filen adovbs.inc ?????