調用access報表

       Dim ii As Integer `用來標記目前控件的標號

       Dim path As String

       Set db = New ADODB.Connection

     db.CursorLocation = adUseClIEnt `設置游標引擎的位置為客戶游標。

      db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "GPSdata.mdb;Persist Security Info=False"

     其中app.path是當前路徑，gpsdata.mdb就是你想要連接的Access數據庫
      Set adoprimaryRS = New ADODB.Recordset
           path = "select * from vehicle order by v_no"
              vehicle就是你想要打開的表  
         adoprimaryRS.Open path, db, _ adOpenDynamic,adLockBatchOptimistic 

     判斷表是否為空
     if  adoprimaryRS.RecordCount = 0 Then

           MsgBox "數據庫空", vbDefaultButton1

           Exit Sub
     End If
         adoprimaryRS.MoveFirst
         將記錄移到第一行
          通過adopriamryrs.fIElds可以訪問你想的數據！