Visual Basic - no puedo conectarme a una base de datos access2013

Imports System.Data.OleDb

Public Class Form1

    Dim conexion As New OleDb.OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source = BD_EVOTO.accdb ")

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try

            conexion.Open()

            MsgBox("Coneccion correcta a la BD")

        Catch ex As Exception

            MsgBox("No se concto")

            conexion.Close()

        End Try

    End Sub

End Class

Imports System.Data.OleDb

Public Class Form1

    'Dim sConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Northwind.accdb;Persist Security Info=False;"

    'El archivo de access esta en la carpeta root de la aplicacion. cambiar segun se necesite

    Dim sConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.\Northwind.accdb;Persist Security Info=False;"

    Dim mConeccion As New OleDbConnection(sConnectionString)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try

            mConeccion.Open()

            'Revisamos el estado de la coneccion.

            If mConeccion.State = ConnectionState.Open Then

                MsgBox("Coneccion Abierta!")

            Else

                MsgBox("Problema - Coneccion " & mConeccion.State)

            End If

        Catch ex As Exception

            'En caso de que tengamos una excepcion al intentar la coneccion. Por Ej: El path fisico de archivo de access es invalido...

            MessageBox.Show("Excepcion: " & ex.Message)

        End Try

    End Sub

End Class