Sub LoadExps()
Dim i As Long
Dim cCount As Long
Dim RS As ADODB.Recordset

'Setup database stuff
Set RS = New ADODB.Recordset
RS.Open "SELECT * FROM exps;", Conn_Server, adOpenStatic, adLockReadOnly

If RS.EOF Then Exit Sub

RS.MoveFirst
   
For i = 1 To MAX_EXP
    Call SetStatus("Loading Exp " & i & "/" & MAX_EXP)
    With Exp(i)
        .FKey = CLng(RS("FKey"))
        .Exp = CLng(RS("Exp"))
    End With
    DoEvents
    If i <> MAX_EXP Then
        RS.MoveNext
    End If
Next i
RS.Close
Set RS = Nothing
End Sub