mysql errors

[swya]

I have resolved the issue by adding the following:

Code:

Set RS = New ADODB.Recordset
RS.Open "SELECT count(*) FROM shops;", Conn_Server, adOpenStatic, adLockReadOnly
RS.MoveFirst

ShopCount = RS(0)

RS.Close

then instead of

Code:

For I = 1 To MAX_SHOPS

I used

Code:

For I = 1 To ShopCount

This way it seems to try to only load what exists already in the database. Of course I modified Shops, NPCs, Maps et cetera individually, but it is the same code with just a minor adjustment to the query.