access x mysql (erro após mudar conexao)

[marciolvs 1]

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