VBA 连接sql server的用法

cnnstr = "Provider=sqloledb;Data Source=192.211.21.8;Initial Catalog=pub;UID=账号;PWD=密码"

VBA 从记录集到sheet：activesheet.Range("A1“).CopyFromRecordset rst