Option Explicit
Const DSN = "Driver={MySQL ODBC 5.1 Driver};Uid=***;Pwd=***;Server=***;Database=***;OPTION=35"

Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adOpenUnspecified = -1

Const adUseNone = 1
Const adUseServer = 2
Const adUseClient = 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 cnxDatabase
Dim strSQL
DIM i

' connecting database
Wscript.Echo "Connecting..."
Set cnxDatabase = CreateObject("ADODB.Connection")
cnxDatabase.Open(DSN)

Wscript.Echo "Preparing..."
cnxDatabase.Execute("DROP TABLE IF EXISTS bug48105")



' CASE 1: such table causes an error
cnxDatabase.Execute("CREATE TABLE bug48105 (Id INT NOT NULL PRIMARY KEY, SomeText LONGTEXT)")

' CASE 2: such table is ok
'cnxDatabase.Execute("CREATE TABLE bug48105 (Id INT NOT NULL PRIMARY KEY, SomeText LONGTEXT, AnotherDummyText VARCHAR(10))")



Wscript.Echo "Opening recordset..."
Dim rs
Set rs = CreateObject("ADODB.Recordset")
With rs
    .ActiveConnection = cnxDatabase
    .LockType = adLockOptimistic
    .CursorType = adOpenStatic
    .CursorLocation = adUseServer
    .Open("SELECT * FROM bug48105")
End With

Wscript.Echo "Inserting 1..."
rs.AddNew
rs("Id") = 700000
rs("SomeText") = "blah_blah_1"
rs.Update

Wscript.Echo "Inserting 2..."
rs.AddNew
rs("Id") = 700001
rs("SomeText") = "blah_blah_2"
rs.Update

Wscript.Echo "Closing..."
rs.Close
Set rs = Nothing
Set cnxDatabase = Nothing