你的Connect属性设置错误。如果你要打开Access数据库，不要指定数据库类型，也就是Connect属性应该为";pwd=password"。只有打开非Access数据库时，才需要指定数据库类型。 
    这个属性是由两个部分组成的。第一个部分是数据库类型，如FoxPro 2.5等，对于Access数据库，这一部分为空。第二个部分是一些参数，如pwd=password表示密码是password。两个部分之间使用"；"号分割。 
    如果是使用OpenDatabase打开数据库，需要设置第4个参数，格式同的。Connect属性。 
    下面的例子打开一个带有密码的数据库，密码为outlook： 
    Dim MyDatabase As Database 
    Set MyDatabase = Workspaces(0).OpenDatabase("CSMain.mdb", True, False, ";pwd=outlook") 
<END>     

    