如何创建mdb文件并设置密码，在不引用任何资源的情况下可以么？

看过那个网页的方法，问题是他要引用ado，我是说不引用任何资源可以么？

经过摸索，我是这样做的
 Dim bd, cat As Object
        bd = "c:\data.mdb"
        cat = CreateObject("ADOX.Catalog")
        cat.Create("provider=microsoft.jet.oledb.4.0;;Jet OleDb:DataBase Password=940434;data source=" + bd)
       cat = Nothing
        Dim connstr As String
        Dim co, rs, aa As Object
        co = CreateObject("ADODB.Connection")
        connstr = "provider=microsoft.jet.oledb.4.0;;Jet OleDb:DataBase Password=940434;data source=" + bd
        co.Open(connstr)
        rs = CreateObject("Adodb.RecordSet")
        aa = "CREATE TABLE yhxx(id Counter,姓名 text(255),性别 text(255))"
         rs.Open(aa, co, 3, 3)
        rs = Nothing
        bd = Nothing
        aa = Nothing
        cat = Nothing
        connstr = Nothing
        co.close()
        co = Nothing
        GC.Collect()