Option Explicit

Const cConnectionString= "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=munja; DATABASE=test; UID=root; pwd=;PORT=3307;OPTION=3"

Const adOpenForwardOnly = 0
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3

'---- ParameterDirectionEnum Values ----
Const adParamUnknown = &H0000
Const adParamInput = &H0001
Const adParamOutput = &H0002
Const adParamInputOutput = &H0003
Const adParamReturnValue = &H0004

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004
Const adCmdFile = &H0100
Const adCmdTableDirect = &H0200

Const adInteger=3
Const adDate=7
Const adVarChar=200

dim Connection1
dim RecordSet1
dim cmd 
dim dbcon
dim dbcmd

Set Connection1 = CreateObject("ADODB.Connection")
Set RecordSet1 = CreateObject("ADODB.Recordset")
Set cmd = CreateObject("ADODB.Command")

Connection1.Open cConnectionString 
Wscript.Echo "Connection is Opend"

set cmd.ActiveConnection = Connection1
cmd.CommandText = "SELECT * FROM mydec"
cmd.CommandType = adCmdText

Set RecordSet1 = cmd.Execute
WScript.Echo RecordSet1(1)

WScript.Echo "RS Executed.."

WScript.echo _
			RecordSet1.Fields(1).Name & chr(10) & _
			" Type: " & RecordSet1.Fields(1).Type & chr(10) & _
			" Size: " & RecordSet1.Fields(1).DefinedSize & chr(10) & _	
			" Scale: " & RecordSet1.Fields(1).NumericScale & chr(10) & _
			" Precision: " & RecordSet1.Fields(1).Precision

RecordSet1.Close
Connection1.Close

Set RecordSet1 = nothing
Set Connection1 = nothing