I'm not sure if the code you typed is verbatim out of your app or not, but where you have
Data1.Connect = Access

Is Access a string variable that you've assigned a value to? I know that that property is expecting to see a string. If this is your problem, and you haven't declared the Option Explicit keyword, I would suggest you do that because it will catch errors like this.

Of course if that isn't verbatim and you do have it typed correctly in your code, you can ignore this whole message

Castor