mysql errors

[Dragoons Master]

I made my own xD
Work with this:

Code:

Public Function GetRecordCount(dbTable As String, Optional WH As String = "0") As Long
'Setup database stuff
Dim RS As ADODB.Recordset
Dim i As Long
Dim SQL As String
    Set RS = New ADODB.Recordset
    If WH = "0" Then
        SQL = "SELECT * FROM " & dbTable & ";"
    Else
        SQL = "SELECT * FROM " & dbTable & " WHERE " & WH & ";"
    End If
    
    RS.Open SQL, Conn_Client, adOpenStatic, adLockReadOnly
    
    RS.MoveFirst
    i = RS.RecordCount
    
    RS.Close
    Set RS = Nothing
    GetRecordCount = i
End Function

Public Sub CheckItems()
'Check to see if max items is how many items there are in the database.
Dim RecCount As Long
Dim i As Long
Dim OffSet As Long
Dim RS As ADODB.Recordset

RecCount = GetRecordCount("Items")
OffSet = MAX_ITEMS - RecCount
If OffSet = 0 Then Exit Sub
Set RS = New ADODB.Recordset
RS.Open "SELECT * FROM Items;", Conn_Client, adOpenStatic, adLockOptimistic

If RS.EOF = True Then Exit Sub

RS.MoveFirst
For i = MAX_ITEMS - OffSet + 1 To MAX_ITEMS
    RS.AddNew
    
    RS!FKey = i
    RS!Name = "   "
    RS!Descricao = "   "
    RS!Pic = 0
    RS!Type = 0
    RS!ClassReq = 0
    RS!Data1 = 0
    RS!Data2 = 0
    RS!Data3 = 0
    RS!TwoHanded = 0
    RS!GuildReq = 0
    RS!Poison_Length = 0
    RS!Poisons = False
    RS!Poison_Vital = 0
    RS!IsRangeWeapon = 0
    RS!RangeAmmo = 0
    
    RS.Update
Next i
RS.Close
Set RS = Nothing
End Sub

And remember, run CheckItems() only once!