实例1
1.任务
2.过程
定义一个函数过程（这里仅仅是定义这样一个过程，后面的事件才是真真的调用这个过程并予以实现），在函数过程里面通过connectinstring来建立对数据库的连接，然后利用objrs获取用户登录信息，其中用了if嵌套来是实现登录过程中出现的各种情况的应对。（这里应该就是米老师常说的为人民服务的宗旨，这里我想起来了一句海芳师姐的话，让用户躺在向日葵中。）
3.经典的代码
可能这并不是多么多么经典，只是应用过程中会用到很多次。
Objcn.connetionstring=”provider=Microsoft.jet.oledb.4.0;”& “data source=” & app.path & “\数据库\实例1.mdb”
Objcn.open
或者是这个一个版本
Strcn=”provider=Microsoft.jet.oledb.4.0;”&”data source =”& app.path &”\数据库\实例1.mdb”
Objcn.connectionstring=strcn
Objcn.open
当然在之前还是要定义objcn为连接集的，这段代码说白了就是用来连接数据库用的。是直接可以拿来用的，可能要更改一下路径什么的。
当然建立了数据库的连接，最后还是要释放的。就有下面这段你死了都不会忘了的代码了。
Set objrs=nothing
Objcn.close
Set objcn=nothing
可能大家有的顺序不一样，到目前为止我见过很多版本。还没有发现顺序对于运行有何影响。
实例2
1. 任务使用ADO实现对ODBC数据源的访问。（卡了？简单来说ODBC提供了对sql语言的支持，用户可以直接将sql语句送给ODBC。还能以统一的方式访问数据库。）
2. 过程
Set objcn=new connection
Objcn.open”DSN=实例 2 DSN” Domain name system ‘
这里的DSN,中文域名系统一个DSN中至少应该包含如下一些内容：
◆关于数据库驱动程序的信息。
◆数据库存放位置。文件型数据库（如Access）的存放位置为数据库文件的路径；非文件型数据库（如sql Server）的存放位置是指服务器的名称。
◆数据库名称。在ODBC数据源管理器中，所有的DSN名称是不能重复的。
实例 3
1. 任务
使用 ADO Data 控件创建数据库连接
2. 过程
第一步：ADO Data控件连接数据库
第二步：文本框显示数据
Adodc1.caption="当前记录："& Adodc1.RecordSet.AbsolutePosition & "\" & Adodc1.Recordset.Recordcount
实例 4
1.任务
2.过程
第一步：添加Microsoft DataGrid Control 6.0（OLEDB）部件
第二步：自定义过程用来显示当前记录页数据，并复制到记录集对象中，最后绑定DataGrid控件
第三步：连接数据库和记录集对象
出现的问题：对于实例4来说，其实我在实验过程中出现了很多问题。都是一些很小的细节，什么字母丢了，中英文切换错误。还是太粗心了。
这个例子跟前面几个例子，有很多的相似的地方。不同的是这里用了一个datacrid控件，用来分页显示。
实例5
1.任务
2.过程
第一步；窗体加载时创建数据库连接和Command 对象
Dim parm As New Parameter
set parm =objcmd.createparameter("用户名"，advarchar,adparaminput,10)
objcmd.parameters.append parn
set parm =objcmd.createparameter("身份"，advarchar,10)
objcmd.parameters.append parm
第二步：执行查询结果
实例5和实例4好像都是前面几个例子的综合，外加上几个很好用的控件来显示数据那种效果。Msflexgrid控件里面很多参数属性倒是挺新鲜的。（应该VB有接触，但是学的。。。）