Visual Basic - problemas con access

tengo una aplicacion y en el ConnectionString por codigo yo le pongo:

Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Y:\SHARE\SGL\Bases\Lubricantes.mdb; Jet OLEDB:Database Password=leon;"

pero cuando lo ejecuto pregunto por esta propiedad y me devuelve:

Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=Y:\SHARE\SGL\Bases\Lubricantes.mdb;Mode=ReadWrite;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password=leon;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet
OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

y otra cosa cuando ejecuto una consulta por vb me devuelve un valor, copio y pego la consulta al access y me devuelve otro valor que es el correcto, y no se porque pasa esto, alguien me puede ayudar?

Trata de esta forma a ver que pasa, solo así no me ha dado problemas con nada.

Cnn.Properties("Jet OLEDB:Database Password") = "leon"

Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Y:\SHARE\SGL\Bases\Lubricantes.mdb;"