Take a look at:
this
or
this1
Regarding your statement:
Public Con as New ADODB.Connection
If you're trying to define a new connection it should be:
Dim Con as New ADODB.Connection
BUT, if it's the start of a function, it should be
Public Function Con() As ADODB.Connection
etc