Error opening ADO Recordset with MSDataShape provider

Since Windows Update 1809 was public for some days, some of our users haved already installed this Windows version.
These users are now reporting an error.
We are using recordsets with the MSDataShape provider.
On Windows Version 1809 the following error occurs:

"Die für Spalte NEW Notes angegebene Länge kann nicht Null sein"
"Length of NEW column Notes cannot be zero"

I have attached a small sample written in VBScript, which shows the problem.


VB Script to reproduce:

Dim rs
' create a recordset with Provider=MSDataShape
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = "Provider=MSDataShape;Data Provider=None"
rs.CursorLocation = 3 'adUseClient
rs.CursorType = 3 'adOpenStatic
rs.LockType = 4 'adLockBatchOptimistic
rs.Open("SHAPE APPEND new adInteger as ID, new adVarChar(40) as Notes")
rs.ActiveConnection = Nothing
if Err.Number <> 0 Then
WScript.Echo("Failed: " & Err.Description)
else
WScript.Echo("Recordset successfully created.")
end if
' add a record to recordset
rs.AddNew
rs("ID") = 1
rs("Notes") = "I am content in the recordset"
rs.Update
' dump recordset content
WScript.Echo(rs("Notes"))