Dim cat as new ADOX.Catalog()
        Dim ConnectionString as string = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=" + m_DatabaseName
        cat.Create(ConnectionString)
        cat = nothing