DoCmd.TransferText acImportDelim, , strTableName, strPath & objFile.Name, True

Sub PrepareExcel(FileNme As String)

Sub PrepareExcel(FileNme As String)

Dim xlWb As Excel.Workbook
Dim xlSh As Excel.Worksheet
Dim Rng As Range
Dim LastRow As Long
Dim LastCol As String
Dim LastCell As String

    Set xlWb = Workbooks.Open(CurrentProject.Path &

Sub PrepareExcel(FileNme As String)

Dim xlWb As Excel.Workbook
Dim xlSh As Excel.Worksheet
Dim Rng As Range
Dim LastRow As Long
Dim LastCol As String
Dim LastCell As String

    Set xlWb

Function Av_Calc(AvNum As Integer, TableNme As String)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim SQLrs As String
    Dim ShowField As String
    Dim Diff As Long
    
    Set db = CurrentDb
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DROP TABLE T_Average"

Function Av_Calc(AvNum As Integer, TableNme As String)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim SQLrs As String
    Dim ShowField As String
    Dim Diff As Long
    
    Set db = CurrentDb
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DROP TABLE T_Average"

Function Av_Calc(AvNum As Integer, TableNme As String)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim SQLrs As String
    Dim ShowField As String
    Dim Diff As Long
    
    Set db = CurrentDb
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DROP TABLE T_Average" 'delete existing T_Average Table

Function Av_Calc(AvNum As Integer, TableNme As String)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim SQLrs As String
    Dim ShowField As String
    Dim Diff As Long
    
    Set db = CurrentDb
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DROP TABLE T_Average" 'delete existing T_Average

Function Av_Calc(AvNum As Integer, TableNme As String)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim rsTemp

Do While Not rs.EOF
        rs.MoveNext
        'add num of minutes requested to the

Function Average_Max(cntr As Integer)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim time1 As String
    Dim av As Long
    Dim mx As Long
    Set db