CONEXION BD ACCESS VB .NET

Imports System.Data.OleDb
Module Module1
    ' CREAR CONEXION

    Private ConecBD As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
                                           "Data Source=C:\Users\PCServifor\Documents\proyecto basededatos\estudiantes.accdb;")

    Public Sub Conectarse()
        Try
            ConecBD.Open()
            MsgBox("Conexion exitosa")
        Catch ex As Exception
            MsgBox("Conexion fallida")
        End Try
    End Sub
End Module