Sub ReadPersistedRecordset() Dim strFileName As String strFileName = "c:\test.txt" If Len(Dir(strFileName)) = 0 Then msgBox "File Not Found" Exit Sub End IfEnd Sub