public Function ConnDB(dbName,bNewCn)
Dim tmpcn
if dbName="" then dbName="/data/public.mdb"
if strDB<>dbName then strDB=dbName
StrCn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath(".") & strDb
response.Write("StrCn is ok")
end if
response.Write("dbName=''then dbName='/data/public.mdb'")
end if
if tmpcn.state=0 then tmpcn.open strCn
end if
end Function
call ConnDB("",false)

大虾们，上面是一段连接数据库的程序，程序就是会出错：
Microsoft VBScript 编译器错误 (0x800A03F7)
缺少 'Function'

Function的定义应该没问题吧？？
请问是哪里出问题了呢？

public Function ConnDB(dbName,bNewCn) ---->

Function ConnDB(dbName,bNewCn)