说到VB程序开发，少不了数据的存取这个环节，那么如何将数据存到数据库呢？这就是我们今天要讲的内容，首先要通过ADO控件来助我们完成所有的操作，具体思路如下：
先引用ADO控件。
必须打开数据库。
存取数据操作。
完成后再关闭数据库
一、引用ADO方法，新建一个应用工程，“工程”菜单>“引用”，
打到 Microsoft ActiveX Data Objects 2.8 Library 控件，勾选后“确定”把引用到我们的工程里面
二、打开数据库，这里我们以 Access 的 MDB 数据库为例。在所有的数据操作过程，都必须先打开数据库，为了方便后面的工作，我们写一个打开数据库的过程，后续需要调用即可。
创建一个模块，并打开代码编辑器，在“通用”区域声明两个变量，一个是数据库连接对象，另一个是记录集对象，
Dim Db As New ADODB.Connection ‘声明新的 ADO 连接类模块
Dim Rs As New ADODB.Recordset ‘声明新的 ADO 记录集类模块
下面还是在“通用”区域编写打开数据库过程的源码
Function OpenConn() As Integer’创建打开数据库过程
On Error Resume Next’忽略错误
Dim DataPath As String ‘声明数据库路径
DataPath = App.Path & “Data.mdb” ‘获取数据库路径
If Dir(DataPath) = “” Then ‘判断数据库是否存在
MsgBox “未找到数据库”, 48, “错误”
Exit Function
End If
Dim CnStr As String ‘声明数据库连接语句’下面是连接语句
CnStr = “Provider=Microsoft.Jet.OLEDB.4.0;”
CnStr = CnStr & “Data Source=” & DataPath ‘这里 DataPath 是数据库路径
CnStr = CnStr & “;Jet OLEDB:Database Password=” ‘如果数据库有密码，Password= & 在这里接上。CnStr = CnStr & “;Persist Security Info=False;”
Set Db = New ADODB.Connection ‘设置连接对象
Db.Open CnStr ‘打开数据库连接
If Err.Number <> 0 Then ‘如果发生错误
MsgBox Err.Description, 48, “连接错误”‘ 消息框提示错误原因
Exit Function ‘退出过程
End If
OpenConn = 1 ‘如果没有错误，打开成功则返回 1
End Function ‘结束打开过程
接着继续写下关闭数据库的过程，因为这些都需在整个程序中使用，所以都写在通用模块中，如下：
Sub CloseConn() ‘关闭数据库过程
On Error Resume Next ‘忽略错误
Db.Close ‘关闭数据库
Set Db = Nothing ‘清除连接对象
End Sub
这节数据库操作前期工作已部署好了，一下节就可以在窗口保存数据了，请继续关注。