vb怎么连接ACCESS数据库?

HI我给你源程序
没有几行

----------------------
Option Explicit
Public MyConnection As New ADODB.Connection '定义数据库对象
Public MyRecordset As New ADODB.Recordset '定义记录集对象
Public DBName As String '定义数据库名称变量
Private Sub Form_Load()
DBName = App.Path & "\db1.mdb" '数据库路径
With MyConnection '设置连接的属性
.Provider = "Microsoft.Jet.OLEDB.4.0" '连接引擎
.Mode = adModeShareExclusive '独占打开
.Open DBName '打开数据库
End With
Dim sqlstr As String
Set MyRecordset = Nothing '让结果集等于空
sqlstr = "SELECT * FROM tab_bus AS t"
With MyRecordset
.ActiveConnection = MyConnection
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.CursorLocation = adUseClient
.Open sqlstr, MyConnection, , , adCmdText
End With
Set DataGrid1.DataSource = MyRecordset '结果集赋结表格
End Sub

等等等等等等等等

呵呵 我们也在做这个作业 我也不会 有答案了告诉我下 呵呵

这个不用这么麻烦的，用控件的话，你添加一个ADODB控件，比较麻烦点，能语聊就快点。
我把代码给你吧：
Public Cn As ADODB.Connection（先定义一个CN）
Set Cn = New ADODB.Connection
CnSource.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\存放你文件的文件夹（名字自定）\你要打开的文件（名字自定）.mdb;Persist Security Info=False"