Cita:
Iniciado por flashtkd 
Muchas gracias "Peterpay" funciona perfecto, te lo agradezco de verdad.
Saludos
La solucion es:
coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & AppDomain.CurrentDomain.BaseDirectory & "\mibase.mdb")
También puedes utilizar la función
CurDir :
coneccion = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0; data source = " & CurDir() & "\mibase.mdb") 