VBscript/ADO/add record problem

Same program, 2 servers, works on one (well, dozens), crashes on the other at
ADDNew statement, same MDAC, both can connect and test connection on ODBC CP
applet ... works on NT4, 200 etc. SQLTrace shows initial connection ok from
SELECT statement, just addnew fails - Any ideas? DBServer is an IP address.

Set objConn = CreateObject("ADODB.Connection")
set dictEventCodes = CreateObject("Scripting.Dictionary")
Set objRS = CreateObject("ADODB.Recordset")
Set WshNetwork = WScript.CreateObject("WScript.Network")
set objFSO = CreateObject("Scripting.FileSystemObject")


objConn.Open "Driver={SQL Server};Server=" & DBServer &
";Uid=xxxx;Pwd=xxxx;Database=ServerMonitoring;Address=" & DBServer &
",1433;Network=DBMSSOCN"
objRS.CursorLocation = 3
objRS.Open "SELECT top 1 * FROM Events" , objConn, 3, 3
wscript.echo " Adding Heatbeak record"
objRS.AddNew
objRS("EventDateTime") = year(now()) & "/" & month(now()) & "/" &
day(now()) & " " & hour(now()) & ":" & minute(now()) & ":" & second(now())
objRS("ServerName") = WshNetwork.ComputerName
objRS("EventLog") = "-"
objRS("EventID") = "0"
objRS("EventUser") = "-"
objRS("EventSource") = "HBEAT"
objRS("EventType") = "HBEAT"
objRS("EventCategory") = "HBEAT"
objRS("EventDetails") = "Heartbeat record"
objRS.Update


.