Conectar a ACCESS via VB.NET

Nesse exemplo estou utilizando no próprio formulário:

Imports System.Data.OleDb

Public Class Form1

Dim CNT As New OleDbConnection

Private Function BD() As OleDbConnection
        Try
            Dim ArqBD As String = Application.StartupPath & "\BD_AGENDA.mdb"
            Dim CamBD As String = "provider=microsoft.jet.oledb.4.0;data source="
            CNT.ConnectionString = CamBD & " " & ArqBD
            CNT.Open()
        Catch ex As Exception
            MsgBox("Erro" & vbNewLine & ex.ToString)
        End Try
        Return CNT
    End Function
End Class

No evento Load do Form coloque o código abaixo:
  BD()