Option Explicit Const DSN = "Uid=root;Pwd=;Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=test;OPTION=3" 'Const DSN = "DSN=myodbc1" Dim cnxDatabase Dim strSQL ' connecting database Set cnxDatabase = CreateObject("ADODB.Connection") cnxDatabase.Open(DSN) cnxDatabase.Execute("USE test") ' querying data strSQL = "SHOW CREATE TABLE a" Dim rs Set rs = CreateObject("ADODB.Recordset") With rs .ActiveConnection = cnxDatabase .Open(strSQL) End With WScript.Echo rs.Fields(1).Name 'Create Table WScript.Echo rs.Fields(1).Type '204 - VARBINARY WScript.Echo rs(0) WScript.Echo rs(1) WScript.Echo (rs("Create Table").Value) rs.Close cnxDatabase.Close Set rs = nothing Set cnxDatabase = nothing