conexion de a base de datos sin ubicación

[Aquaventus]

prueba asi..(Es Base1.mdb ó ppestion.mdb), porque pones 2 nombres de BD distintas :

Código vb.net:

Dim path As String = (System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase.ToString()) & "\ppestion.mdb").Remove(0, 6)
conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ""