creo que tu Error se genera Aqui
Código:
con.Open (connstr) 'Aqui Abre la conexxion
con.Open 'esta ya no es necesaria
espero te sirva... de lo contratio deverias poner asi
Código:
con.Open (connstr) 'Aqui Abre la conexxion
if con.state = 1 then con.close 'Cierras para posteriormente abrir asi
con.Open
Espero no haberte confundido