VB.NET and MS Access OLEDB

Dim source As String

Dim prov As String

Dim pass As String

prov = "Microsoft.Jet.OLEDB.4.0"

source = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location())

pass = "123"

Dim con As New OleDb.OleDbConnection("Provider=" + prov + ";Data Source=" + source + "\Perfect_Engineering.mdb;Jet OLEDB:Database Password=" + pass)

con.Open()