VB 数据库编程之 ADO 连接数据库实例
这里先说说ADO的ACCESS数据库连接吧，两种。

1.ADO控件连接
“工程”菜单→“部件...”：Microsoft ADO Data Control 6.0 (SP6) (OLEDB)
并将Adodc数据控件绘入窗体。

右击Adodc数据控件→属性→使用连接字符串→生成→Microsoft Jet 4.0 OLE DB Provider→数据位置→找到要连接的ACCESS数据库文件……
Adodc数据控件的RecordSource属性为“2 - adcmdTable”和你要连接的表名。

控件的引用实例如下：
'组合框（Combo）控件列表用某字段数据记录填充范例
'在窗体Load事件或Combo的相关事件中写入
'循环1到记录总数
For i = 1 To Adodc1.Recordset.RecordCount
'如果不在记录集结尾则
If Not Adodc1.Recordset.EOF Then
'组合框增加一行：“姓名”字段的值
Combo1.AddItem Adodc1.Recordset.Fields("姓名").Value
'记录指针向后一个
Adodc1.Recordset.Movenext
End If
Next i
2.ADO代码连接
通用声明
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New mand
Private Sub Form_Load()
'实例化Connection对象
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\personnel.mdb;"
'Recordset对象
Set rs = New ADODB.Recordset
rs.Open "职工信息", cn, adOpenDynamic, adLockOptimistic
'动态集开放式
'ADO数据使用范例
'If rs.RecordCount > 0 Then
'rs.MoveLast
'rs.MoveFirst
'Text1.Text = rs.Fields(2)
'End If
'组合框（Combo）控件列表用某字段数据记录填充范例
'循环1到记录总数
For i = 1 To rs.RecordCount
'如果不在记录集结尾则
If Not rs.EOF Then
'组合框增加一行："姓名"字段的值
Combo1.AddItem rs.Fields("姓名").Value
'记录指针向后一个
rs.MoveNext
End If
Next i
End Sub
注意，以上有关For循环和If条件语句的代码均为原创，引用请注明出处！OK，今天就到这里。