例如:Data1.DatabaseName = "\\mainserver\数据库\111.mdb"
在线等待,谢谢,马上结帖
试试:
Data1.DatabaseName = "\\mainserver\数据库\111.mdb;pwd=pass"
Data1.Connect = ";pwd=密码"
用ADO连接
dim con as new adodb.connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= \\mainserver\数据库\111.mdb;jet oledb:database password=你的密码"
在前面加一句
shell "net use \\机器名 密码 /user:用户名"
列如:机器名为:computer 用户为:guest 密码为123456
shell "net use \\computer 123456 /user:guest"
98下用户名为guest