O tal vez quede así:
Conexion.Open "DSN=Base"
Suerte.
<OBJECT WIDTH=200 HEIGHT=50><PARAM NAME=movie VALUE="http://www.geocities.com/wamoretti/wamoretti.swf"><PARAM NAME=wmode VALUE=transparent><EMBED src="http://www.geocities.com/wamoretti/wamoretti.swf" wmode=transparent WIDTH=200 HEIGHT=50></EMBED></OBJECT