可以考虑使用ado连接数据库
具体的连接字符串可以使用adodc控件,按照提示生成后拷贝过来
然后定义
dim cn as new adodb.connection
cn.open "使用adodc生成的字符串"