Option Explicit
Const DSN = "Driver={MySQL ODBC 5.1 Driver};Uid=root;Pwd=*****;Server=localhost;Database=test;OPTION=1+2+67108864"

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 strTest

' connecting database
Set cnxDatabase = CreateObject("ADODB.Connection")
cnxDatabase.Open(DSN)
If cnxDatabase.State = 1 Then
  Wscript.Echo "Connected"
  cnxDatabase.Execute("USE test")
  cnxDatabase.Execute("DROP TABLE IF EXISTS `bug36071`")
  cnxDatabase.Execute("create table bug36071(`Name` VARCHAR(16) NOT NULL PRIMARY KEY, `Something` VARCHAR(45) DEFAULT NULL, `MyLongTextFld`   LONGTEXT, UNIQUE KEY_UNI(`Something`));")
  cnxDatabase.Execute("INSERT INTO bug36071 VALUES('Louis', 'Testje','First text in longtext field');")
End If
' querying data
strSQL = "SELECT * FROM bug36071"

Dim rs1
Set rs1 = CreateObject("ADODB.Recordset")
With rs1
    .ActiveConnection = cnxDatabase
    .LockType = adLockOptimistic '3
    .CursorType = 2 'adOpenStatic 3, adOpenKeyset   1, 2 adOpenDynamic
    .CursorLocation = 3 '3 adUseClient '1 adUseServer
    .Properties("Update Criteria").Value = 0
    .Open(strSQL)
End With
Wscript.Echo "rs opened"
 WScript.echo _
   rs1.Fields(0).Name & chr(10) & _
   " Type: " & rs1.Fields(0).Type & chr(10) & _
   " Size: " & rs1.Fields(0).DefinedSize & chr(10) & _	
   " Scale: " & rs1.Fields(0).NumericScale & chr(10) & _
   " Precision: " & rs1.Fields(0).Precision

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

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

'V1
rs1.MoveFirst
rs1("MyLongTextFld") = "This should work too. With: Some very long text to put into MyLongTextFld field to test Bug#36071"
rs1.Update

'V2,  BLOB way
' modify field value
'strTest = "Some very long text to put into MyLongTextFld field to test Bug#36071"
'Set fld = rs1.Fields("MyLongTextFld")
'fld.AppendChunk strTest
'rs1.Update


rs1.Close
Set rs1 = Nothing
Set cnxDatabase = Nothing