可以把本功能寫成一個函數，函數的處理過程描述如下： 

首先調用adodb.connection對象中的openSchema函數，這樣會得到一個Recordset，其中每一條“紀錄”對應著數據庫中的一張表，“紀錄”的每個“字段”包含了對應表的某方面信息。其中TABLE_NAME字段包含了對應表的名稱 
然后遍歷這個Recordset，如果“當前紀錄”的TABLE_NAME字段的值和要查找的表的名字一樣，證明要查找的表存在。 
函數如下所示: 

復制代碼代碼如下:

function check_gived_DataTable_exist_or_not(connect_object,name_of_gived_DataTable) 
Do_gived_DataTable_exist=false 
Const adSchemaTables=20 '表明想要得到數據庫中“表（table）和視圖（view）的集合” 
set RecordSet_about_table_and_view_in_DataBase=connect_object.openSchema(adSchemaTables) 
Do Until RecordSet_about_table_and_view_in_DataBase.EOF 
if RecordSet_about_table_and_view_in_DataBase("TABLE_TYPE")="TABLE" then 
if RecordSet_about_table_and_view_in_DataBase("TABLE_NAME")= name_of_gived_DataTable then 
Do_gived_DataTable_exist=true 
exit do 
end if 
end if 
RecordSet_about_table_and_view_in_DataBase.movenext 
Loop 

check_gived_DataTable_exist_or_not=Do_gived_DataTable_exist 
end function 

注釋: 

connect_object.openSchema(adSchemaTables)這個函數執行后，會得到“數據庫中表（table）和視圖（view）的集合”，這是一個ADODB.Recordset類型的數據。 
if RecordSet_about_table_and_view_in_DataBase("TABLE_TYPE")="TABLE"這句話把檢查范圍縮小為“表（table）”。