Private Sub RefreshList()

Call CreateDirTbl
Me.lstNewSigmaFiles.Requery

End Sub