Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Open "Provider=MSDAORA.1;Data Source=数据源;User ID=用户名;Password=密码;Persist Security Info=True" cn.Execute ("执行的数据库更新语句") ' 通过表或者查询创建数据集 Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open...