最简单的VB打开ACCESS数据库的程序

以下代码用到两个控件:(1)Adodc控件（2）DataGrid控件
Private Sub Command1_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& "D:\我的文档" _
& "\实验室排课.mdb;Persist Security Info=False"
.CommandType = adCmdUnknown
.RecordSource = "你的查询（select）语句"
.Refresh
End With

With DataGrid1 '用网格控件显示数据库中的数据
Set .DataSource = Adodc1.Recordset
.Refresh
End With
End Sub

VB已经提供最简单打开ACCESS数据库的方法了。

只要拽入“Data”控件到窗体里
Data1.DatabaseName = "c:\test.mdb" '载入数据库文件
用控件的方法和属性就能访问数据库的表、字段和数据内容了。

拽入一个Text控件，还可以把数据显示内容直接绑定到控件上。
似乎没有比这个更简单的方法了，不用掌握SQL语句，直接都是指令，呵呵。

dim cn as new adodb.connection '定义ado对象的连接
dim rs as new adodb.recordset ’定义ado对象的记录源
cn.open("dirver={microsoft access driver (*.mdb)};dbq=D:\我的文档 名字是实验室排课.mdb")
‘以上，打开数据库连接
rs.open("select * from 数据表")，, cn, adOpenKeyset, adLockOptimistic
’以上，打开数据库的具体某个表的某些数据
set datagrid1.datasource=rs ‘把数据源连接给datagrid1，让其显示