This is just wrong:
' And does not concatenate strings
con.ConnectionString = dbProvider And dbSource
what you probably meant was:
con.ConnectionString = dbProvider & ";" & dbSource
or
connString = "Provider=Microsoft.Jet.OLEDB.4.0; " ' end with a ;
connString &= "Data Source = C:\Users\lewis..."
con.ConnectionString = connString
I am using a 64 bit operating system with 32 bit software
If this means your project is 32 bit, you shouldn't have a problem, but for info on using OLEDb 4.0 in 64bit mode look here