Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command '定义Command对象
conn.Provider="Microsoft.ACE.OLEDB.12.0" '设置提供者名称
conn.ConnectionString="data source="&_ThisWorkbook.Path&"\罗斯文2007.accdb" '设置连接字符串
conn.Mode=adModeReadWrite '设置读写模式
conn.Open '打开数据库连接
With cmd '设置Command对象