access x mysql (erro após mudar conexao)

Boa noite!

Eu tinha um rondomize com conexao access, porem mudei meu banco para mysql..o códio era este

Set conexaodb = Server.CreateObject("ADODB.Connection")
conexaodb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("sistema/database.mdb") & ";Persist Security Info=False"

 countsql = "select count(*) as total From Cotas Where Tipo='Veiculos'"
 set rs = conexaodb.execute(countsql)

 IF rs("total") <> 0 Then

 SQL = "SELECT * FROM Cotas Where Tipo='Veiculos'"
 set rs2 = conexaodb.execute(SQL)
 Randomize
 rs2.Move (Int(rs("total") * Rnd))

mudei para este

conexaodb.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=robb0260.publiccloud.com.br;PORT=3306;DATABASE=meubandodedados_db;USER=meuusuario_db;PASSWORD=minhasenha;OPTION=3;")

 countsql = "select count(*) as total From Cotas Where Tipo='Veiculos'"
 set rs = conexaodb.execute(countsql)

 IF rs("total") <> 0 Then

 SQL = "SELECT * FROM Cotas Where Tipo='Veiculos'"
 set rs2 = conexaodb.execute(SQL)
 Randomize
 rs2.Move (Int(rs("total") * Rnd))

bom, está dando o erro:

Microsoft VBScript runtime error '800a000d'

Type mismatch

/Index.asp, line 293

nesta linha

IF rs("total") <> 0 Then