(1)在程序中使用ADO对象，必须先为当前工程引用ADO的对象库。引用方式是执行“工程”菜单的“引用”命令，启动引用对话框，在清单中选取“MicrosoftActiveX Data Objects 2.0 Library”选项。
(2)接下来：声明连接和数据集——打开连接、数据集——操作数据库数据（总的来说，这些步骤的思想与ado控件的对话框界面操作很相似，基本就是对话框操作自动生成的代码的翻版）
Dim cnn As ADODB.Connection '声明数据库连接对象
Dim rs As New ADODB.Recordset '声明记录集对象
Private Sub Form_Load() '窗体加载
Set cnn = New ADODB.Connection
cnn.Open “Provider=SQLOLEDB;
Integrated Security=SSPI;
Persist Security Info=False;
Initial Catalog=pubs;
Data Source=LENOVO-3176FB9C"
Set rs = New ADODB.Recordset
rs.Open "select * from titles", cnn, adOpenDynamic, adLockOptimistic
'打开动态类型游标, 开放式锁定update时才锁定
需要注意的有：（1）dim声明段要放在“通用声明里面”，否则只能用一次；（2）最后操作结束时需要用close关闭数据库，否则下次无法打开了；（3）我的程序段里面关于计算机型号、锁的类型、游标类型等的选取请依据自己的实际情况进行。（4）用ado对象连接数据库非常容易出现语法错误，请重点关注符号在英文状态下输入，每个语句单独占一行、若实在过长需要换行，要加续行符等等问题。
请做好多次调试的准备。祝你成功~
