'**************************************************

'[测试数据库中的表是否存在]

'函数名：TestTbOK

'作 用：测试数据库中的表是否存在

'参 数：ObjConnName ---- 数据库链接定义

'参 数：TestDbname ---- 被测试表的名称

'返回值：测试成功返回 True 否则 False

'示 例：TestTbOK(TestConn,"tbname")

'**************************************************

Public Function TestTbOK(ByVal ObjConnName,ByVal TestDbname)

TestTbOK=False

DIM fu_Rs

Set fu_Rs=server.createobject("ADODB.Recordset")

On Error GoTo 0

On Error Resume Next

fu_Rs.open "SELECT * FROM "&TestDbname,ObjConnName,1,1

fu_Rs.Close

If Err.Number = 0 Then

TestTbOK=True

End If

On Error GoTo 0

Set fu_Rs = Nothing

End Function