Mine

Option Explicit

' Database Setup and Variables

Public strSQLString As String             ' SQL Query String
Public strConn As String            ' Connection String
Public strField(0) As String        ' Array String

Public dbConn As ADODB.Connection   ' Connection Object
Public dbRset As ADODB.Recordset    ' Recordset Object

Public dateEOD As Date              ' EOD Date


Public intNum As Integer            ' # of Fields
Public intPrices As Integer         ' # of Fields
Public PriceArray()                 ' # of Price Fields