cat.create pstr错误提示"实时错误424"要求对象

private sub command1_click（)
    dim cat as adox.catalog
    dim idx as adox.index
    dim tb as table
    dim ikey as key
    dim strdb as string
    dim mydefaultvalue
    
    
'创建数据库
    strdb = "newdb"               '指定数据库名称
    if dir（app.path & "\" & strdb & ".mdb") <> "" then
        kill app.path & "\" & strdb & ".mdb"
    end if
    
    set cat = new adox.catalog
    cat.create "provider=microsoft.jet.oledb.4.0;" & _
        "data source=" & app.path & "\" & strdb & ".mdb;" & _
        "jet oledb:database password=abc"        '不要密码，可以省略
    
'连接数据库
    set cat = new adox.catalog
    cat.activeconnection = _
        "provider=microsoft.jet.oledb.4.0;" & _
        "data source=" & app.path & "\" & strdb & ".mdb;" & _
        "jet oledb:database password=abc"
        
'创建新数据库中的表 tb_info
    set tb = new table
    tb.name = "tb_info"
    tb.columns.append "id", adinteger
    tb.columns.append "iname", advarwchar, 50
    tb.columns.append "idub", addouble
    cat.tables.append tb
   
'创建字段 id 为主键
    set ikey = new key
    ikey.name = "mtb"
    ikey.type = adkeyprimary
    ikey.relatedtable = "tb_info"
    ikey.columns.append "id"
    cat.tables（"tb_info").keys.append ikey
      
'创建字段id的索引
    set idx = new adox.index
    idx.name = "mul"
    idx.columns.append "id"
   ' 将索引追加到表上
    tb.indexes.append idx
  
'指定idub的默认值
    mydefaultvalue = 0
    cat.tables（"tb_info").columns（"idub").properties（"default").value = mydefaultvalue
    
    set tb = nothing
    set cat = nothing
    
    msgbox "你成功创建了数据库" & strdb
end sub