利用ADO方式如何判断某个表中数据库中是否存在？

Question

用adoCN.OpenSchema(adSchemaTables)
'***********
'***********Sql
Private Sub Form_Load()
Dim adoCN As New ADODB.Connection      '定义数据库的连接存放数据和代码Dim rstSchema
Dim strCnn As New ADODB.Recordset
      
  str1 = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=wktrade;Data Source=net5"
  adoCN.Open str1
    
  Set rstSchema = adoCN.OpenSchema(adSchemaTables)
  
  Do Until rstSchema.EOF
      out = out & "Table name: " & _
        rstSchema!TABLE_NAME & vbCr & _
        "Table type: " & rstSchema!TABLE_TYPE & vbCr
      rstSchema.MoveNext
  Loop
  rstSchema.Close
  
  adoCN.Close
Debug.Print out
End Sub

Answer 1

rs.open "select * from dbo.sysobjects where id = object_id(N'[dbo].[TIN_MAIN]') and OBJECTPROPERTY(id, N'IsUserTable') = 1",cn
if rs.bof and rs.eof then
    msgbox "table tin_main not existed"
else 
    msgbox "table tin_main existed"
end if