CONEXION DE BD DENTRO DE UN PROYECTO

CREAR UN MODULO DENTRO DEL PROYECTO 

Imports System.Data.OleDb

Module funcionesDb

    ' CREAR CONEXION

    Private ConecBD As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
                                         "Data Source=BDInventario.accdb;")
    Public Sub Conectarse()
        Try
            ConecBD.Open()
            MsgBox("Conexion exitosa")
        Catch ex As Exception
            MsgBox("Conexion fallida")
        End Try
    End Sub


End Module

CÓDIGO EN EL FORMULARIO

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Conectarse()
    End Sub