set conn=CreateObject("ADODB.Connection")
Conn.Open("DRIVER={MySQL Connector/ODBC v5};SERVER=localhost;DATABASE=mysql;UID=root;PWD=acerm; OPTION=3;")
on error resume next
Conn.Execute "create table aaa(x int)"
on error goto 0
set rs=Conn.Execute("select * from aaa")
do while not rs.EOF
  msgbox rs("x")
  rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing