·½ ·¨ 1: 
    Dim adoConnectionX As New ADODB.Connection 
    Dim adoSchemaRecordsetX As New ADODB.Recordset 
    'Ms SQL 7: 
    'adoConnectionX.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=yuer;DataBase=NorthwindCS" 
    'Access 2000: 
    adoConnectionX.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DRptPlus\DRptPlus\Data\NWind2K.mdb;Persist Security Info=False" 
     
    Dim TestTableName As String 
    TestTableName = "²ú Æ· " 
     
    Set adoSchemaRecordsetX = adoConnectionX.OpenSchema(adSchemaTables, Array(Empty, Empty, TestTableName, "Table")) 
     
    If Not adoSchemaRecordsetX.EOF Then 
     MsgBox "[" & TestTableName & "]±í ÒÑ ´æ ÔÚ !" 
    End If 
     
    ·½ ·¨ 2(Òý ÓÃ Microsoft ADO Extensions 2.1 for DDL and Security (ADOX)): 
    £¨ Ö÷ ³Ö ÈË ×¢ £º Ðè Òª Éý ¼¶ ÖÁ VB 6.0SP3£© 
    Dim adoConnectionX As New ADODB.Connection 
    'Ms SQL 7: 
    adoConnectionX.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=yuer;DataBase=NorthwindCS" 
    'Access 2000: 
    'adoConnectionX.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DRptPlus\DRptPlus\Data\NWind2K.mdb;Persist Security Info=False" 
     
    Dim adoxCatalogX As New ADOX.Catalog 
    Set adoxCatalogX.ActiveConnection = adoConnectionX 
     
    Dim TestTableName As String 
    TestTableName = "²ú Æ· " 
     
    Dim adoxTableX As ADOX.Table 
    For Each adoxTableX In adoxCatalogX.Tables 
     If adoxTableX.Name = TestTableName Then 
     MsgBox "[" & TestTableName & "]±í ÒÑ ´æ ÔÚ !" 
     Exit For 
     End If 
    Next 
    Ö÷ ³Ö ÈË ×¢ £º ·½ ·¨ 2Ò² ¿É ÒÔ Õâ Ñù £º 
    Private Sub Command1_Click() 
    Dim cat As ADOX.Catalog 
    Dim tbl As ADOX.Table 
     
    Set cat = New ADOX.Catalog 
    Set cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.3.51;" _ 
    & "Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb" 
    On Error Resume Next 
    Set tbl = cat.Tables("MyTable") 
     
    If tbl Is Nothing Then 
     MsgBox "MyTable doesn't exist" 
    Else 
     MsgBox "MyTable exists" 
     Set tbl = Nothing 
    End If 
     
    Set cat = Nothing 
    Set con = Nothing 
    End Sub 
<END>    
