你可以参考一下以下的连接方法：

    '定义程序启动的路径
    Dim absPath As String = Application.StartupPath
    '定义数据库连接
    Protected strcnn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & absPath & "\data.mdb"
    Dim cnn As New System.Data.OleDb.OleDbConnection(strcnn)

System.IO.Directory.GetCurrentDirectory

Imports System.Data
         Imports System.Data.OleDb
         Dim connStr, selectCmd As String
         connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= “表存在的路径”"
         selectCmd = "select * from 表"
         Dim conn As OleDbConnection, cmd As OleDbCommand
         conn = New OleDbConnection(connStr)
         conn.Open()
         cmd = New OleDbCommand(selectCmd, conn)
         cmd.ExecuteNonQuery()
         conn.Close()