Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

vb6.exe has generated errors and will be closed by Windows

Status
Not open for further replies.

tatochka

Programmer
May 3, 2001
49
US
The code compiles just fine on Windows95 and 98 machines, but Windows 2000 gives me this message. This is where it happens:


Set BudgetDset = gAssetdb.OpenRecordset(sqlstmt, dbOpenDynaset)
...

frmMonthly!grid3.Refresh
BudgetDset.MoveLast
ReDim Stmtlinexref(BudgetDset.RecordCount * 2)


BudgetDset.MoveFirst
Do While Not BudgetDset.EOF

If IsNull(BudgetDset("Stmtlineno")) Then
lnenbr = 0
Else
lnenbr = Val(BudgetDset("Stmtlineno"))
End If
If lnenbr > 0 Then
Stmtlinexref(lnenbr) = BudgetDset("Seqno")
End If
BudgetDset.MoveNext
Loop

I debuged it. It happens on "BudgetDset.MoveNext" . Why?! Any ideas? PLEASE!!!
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top