Automation error "-2147417856 (80010100)"

Hi, i wrote a programm in VB 6.0 which worked well. But then, after updating the server from Win2k to Win2003 Standard Edition i always get this error.

This part of the program gets data from a SQL-Server (MS 2005) and writes it to an other table. At the end it executes two stored procedures.

Does anybody know this error message?

It means "System call failed". The problem is, that i cannot debug the program at the moment. Because it only runs on the customer server.

best regards philipp

part of the program:

Code:

---

rs.DoQuery ("EXEC [abcHilfe]")
            'On Error GoTo error
            rs2.DoQuery ("SELECT * FROM [@ABCNeustand]")
            rs2.MoveFirst
            For i = 1 To rs2.RecordCount
                rs3.DoQuery ("Select max(Cast(code AS INT)) AS Code from [@ABCMAENDERUNG]")
                zwischen = Val(rs3.Fields("Code").Value) + 1
                rs3.DoQuery ("INSERT INTO [@ABCMAENDERUNG] (Code, Name, [U_CardCode], [U_Datum], [U_Grund], [U_Punkteaenderung]) VALUES('" & zwischen & "', 'Periodenzubuchung', '" & rs2.Fields("CardCode").Value & "', '" & Date & "', 'Neue Periode', '" & rs2.Fields("Steigerung2").Value & "')")
                rs2.MoveNext
            Next i
           
            rs.DoQuery ("EXEC [abcHilfe2]")
            rs.DoQuery ("EXEC [abcHilfe]")

---

maybe i need a patch for win2003 server??

What u's Operating system (XP/Vista/...), what framework u got and what's u'r SP? (service pack)

If u got everything up to date than there's something wrong with u'r code, I'm not an expert, so sorry I can't fix it...