Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Dim strSqlQuery As String
Dim strFromTable As String
Dim strPathToAllBases As String
Dim strNameOfDataBase As String
Dim strTypeOfDataBase As String


strFromTable = "IC_CUR"
strPathToAllBases = "C:\Work\SHOPS"
strNameOfDataBase = "BASE_2"
strTypeOfDataBase = "dBASE IV;LANGID=0x0419;CP=866;COUNTRY=0"


strSqlQuery = "SELECT DATE , Sum([SUM]-[SUMOTK]) AS [TOTAL-SUM], SUM([KOLCHK]) AS [AMOUNT-CHEKS], [TOTAL-SUM]/[AMOUNT-CHEKS] AS AVERAGE" & _
            " FROM " & strFromTable & " WHERE [DATE] Between #8/1/2007# And #9/1/2007# GROUP BY [DATE] ;"

    Set db = DAO.OpenDatabase(strPathToAllBases & "\" & strNameOfDataBase & "\", False, False, strTypeOfDataBase)
    Debug.Print strSqlQuery
    Set rs = db.OpenRecordset(strSqlQuery)
    
    ' Populate the list box
    Do Until rs.EOF
        lstReport1.AddItem rs.Fields("DATE") & ",   " & _
                            rs.Fields("TOTAL-SUM") & ",   " & _
                            rs.Fields("AMOUNT-CHEKS") & ",  " & _
                            rs.Fields("AVERAGE")
        'lstCustomer.ItemData(lstCustomer.NewIndex) = rs.Fields("ID")
        
        rs.MoveNext
        
    Loop
    
    rs.Close
    Set rs = Nothing
End Sub