Private Sub Form_Load()
Dim conn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Connstr As String
Dim Mdbpath As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\D:\VB数据\db1.mdb"
conn.Open
rs.CursorLocation = adUseClient
rs.Open "select 档案编号,姓名 from 车辆档案表", conn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub

先加一个控件adodc
strSQL="select 档案编号,姓名 from 车辆档案表"
Adodc1.ConnectionString = cn.ConnectionString
Adodc1.RecordSource = strSQL
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1