Private Sub Workbook_Open()
Call queryAvi
End Sub