Crashes MariaDB

MariaDB ODBC Connector

Dim ad 
Dim sql_query 
Dim objFSO, objOutFile 
Dim intCount, i 

sql_query = "show databases"      


sConnect = "Driver={MariaDB ODBC 1.0 Driver};Server=localhost;Uid=root;pwd=password"

set ad = CreateObject("ADODB.Connection")     
ad.ConnectionString=sConnect 
ad.Open 

Set rs = ad.execute(sql_query)        'execute query 
intCount = rs.Fields.Count         
do while not rs.eof         
  Wscript.Echo rs.fields.item(0)
  rs.MoveNext
loop 
ad.close