Error Type:
Microsoft JET Database Engine (0x80040E14)
Undefined function 'IsDue' in expression.

I have seen this error a lot in the forums but have not found the fix for my situation. I have read the MS KB article Q189448 and it says to

"replace the Vbajet32.dll file version 5.0.0.7122 with file version 3.0.0.6098 that ships with Microsoft Data Access Components (MDAC) version 1.5. "

It doesn't look like 1.5 is avaiable any more. It also said

"This has been fixed in Visual Basic version 6.0."

Does anyone know what file I download to upgrade to this? I also included the ASP code, SQL of the stored Proceedure, and function in case I messed something up in there.

ASP:
Set oConn371 = Server.CreateObject("ADODB.Connection")
oConn371.Open strConnect
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = oConn371
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "qryAutoSchedPM"
cmd.Execute

SQL Fromn stored proceedure:
SELECT tblPM.PMID, tblPM.MEIDKey, tblPM.PMDesc, tblPM.PMRecur, tblPM.PMLastCompleted, IsDue([PMRecur],[PMLastCompleted]) AS IsDue
FROM tblPM;

function:
Public Function IsDue(PMRecur As Integer, PMLastCompleted As Date) As String
    On Error Resume Next
   Dim strGap
    strGap = DateDiff("d", PMLastCompleted, Now)

    If strGap > PMRecur Then
        IsDue = "Yes"
    Else
        IsDue = "No"
    End If

End Function

Thanks
Dale