I am getting teh following error while converting an asp application to
asp.net,

Exception Details: System.Runtime.InteropServices.COMException: Type
mismatch.

Source Error:

Line 347:    'response.Write(sql2)
Line 348:    rs_getAlarmCount = Server.CreateObject("ADODB.Recordset")
Line 349:    rs_getAlarmCount.ActiveConnection = MM_rs_PAVE_CC_1_STRING
Line 350:    rs_getAlarmCount.Source = sql
Line 351:    rs_getAlarmCount.CursorType = 0

Source File: C:\Documents and
Settings\amit\WebSite1\reports\campusfiresafetyreport.aspx    Line: 349

Stack Trace:

[COMException (0x80020005): Type mismatch.]

Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateSet(Object
o, Type& objType, String name, Object[] args, String[] paramnames,
Boolean OptimisticSet, CallType UseCallType) +2138
  Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateSet(Object
Instance, Type Type, String MemberName, Object[] Arguments, String[]
ArgumentNames, Type[] TypeArguments, Boolean OptimisticSet, Boolean
RValueBase, CallType CallType) +180
  Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateSet(Object
Instance, Type Type, String MemberName, Object[] Arguments, String[]
ArgumentNames, Type[] TypeArguments) +33
  ASP.campusfiresafetyreport_aspx.getAlarmCount(Object location,
Object alarmtype, Object thisyear) in C:\Documents and
Settings\amit\WebSite1\reports\campusfiresafetyreport.aspx:349
  ASP.campusfiresafetyreport_aspx.__Render__control1(HtmlTextWriter
__w, Control parameterContainer) in C:\Documents and
Settings\amit\WebSite1\reports\campusfiresafetyreport.aspx:249
  System.Web.UI.Control.RenderChildrenInternal(HtmlTextWriter writer,
ICollection children) +98
  System.Web.UI.Control.RenderChildren(HtmlTextWriter writer) +20
  System.Web.UI.Page.Render(HtmlTextWriter writer) +27
  System.Web.UI.Control.RenderControlInternal(HtmlTextWriter writer,
ControlAdapter adapter) +53
  System.Web.UI.Control.RenderControl(HtmlTextWriter writer,
ControlAdapter adapter) +280
  System.Web.UI.Control.RenderControl(HtmlTextWriter writer) +24
  System.Web.UI.Page.ProcessRequestMain(Boolean
includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint)
+8878

The code is as follows, where the error occurs,

<Script type="VB" runat="Server">
function getAlarmCount(location, alarmtype, thisyear)

    Dim sql = " SELECT COUNT(*) AS realalarmcount " & _
        "FROM (tblEvent INNER JOIN tblEvent_type ON tblEvent.case_no =
tblEvent_type.case_no)  " & _
        "WHERE (tblEvent_type.event_type_id = "& alarmtype &") " & _
        " AND (tblEvent.date_of_event > '1/1/"& thisyear &"' and
tblEvent.date_of_event < '12/31/"& thisyear &"' ) "
    if location <> "0" then
        sql = sql & " AND  (tblEvent.location = "& location &") "
    end if

    'response.Write(sql2)
    rs_getAlarmCount = Server.CreateObject("ADODB.Recordset")
    rs_getAlarmCount.ActiveConnection = MM_rs_PAVE_CC_1_STRING
    rs_getAlarmCount.Source = sql
    rs_getAlarmCount.CursorType = 0
    rs_getAlarmCount.CursorLocation = 2
    rs_getAlarmCount.LockType = 1
    rs_getAlarmCount.Open()

    alarmcount = rs_getAlarmCount("realalarmcount")

    'response.Write(alarmcount)

    rs_getAlarmCount.Close()
    rs_getAlarmCount = Nothing
   
    getAlarmCount = alarmcount
   
end function
</Script>