Scusami, ti porto un esempio completo... oggi sono in vena :-)
codice:
<%
Dim co
Dim strTestTab

strTestTab = "Driver={MySQL ODBC 3.51 Driver};server=localhost;port=3306;Database=testremoto;UID=xxx;PWD=xx;"

Sub istanzia_co
Set co = server.CreateObject("ADODB.Connection")
End Sub 'istanzia

Sub apri_co(db)
co.Open(db)
End Sub 'apri_co

Sub chiudi_co
co.Close
End Sub 'pulisci_objCon

sub ripulisci_co
Set co = Nothing
End Sub

Function crea_tabella
istanzia_co
apri_co(strTestTab)
dim cmd
cmd = "create table nuovaTabella (" &_
	  "userId int(10) not null auto_increment, "&_
	  "PRIMARY KEY (userId) "&_
	  ");"
co.execute(cmd)
chiudi_co
ripulisci_co
End Function 'crea_tabella


crea_tabella

%>

... non fare caso a sub e function, ho solo riadattato un vecchio test