On Error Resume Next 

  cnn.Execute "Drop Table [" & strTable & "]" 

    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
      & "Data Source=E:\1\db1.mdb;User Id=Admin;" _
      & "Jet OLEDB:Database Password=123;"
      
    Set rst = cnn.OpenSchema(adSchemaTables, _
      Array(Empty, Empty, Empty, "Table"))
      
    Do Until rst.EOF
        If rst!TABLE_NAME = "Table1" Then
            cnn.Execute "DROP TABLE Table1"
            Exit Do
        End If
        rst.MoveNext
    Loop
    
    rst.Close
    cnn.Close
    
    Set rst = Nothing
    Set cnn = Nothing