'****************************************************************** '* Value(s)passed: ..... '* Value(s)returned: ..... '* Date: 10-12-2005 '* Author: Ahmad E. Ashparie '* ___________________________________________ '* Modification Log '* Date Author Description '* ------ -------- ------------- '* '******************************************************************* Public Sub OpenFile() Dim strOpen As String ' Set CancelError is True frmShowDB_Code2.dlgOpenFile.CancelError = True On Error GoTo ErrHandler ' Set flags frmShowDB_Code2.dlgOpenFile.Flags = cdlOFNHideReadOnly frmShowDB_Code2.dlgOpenFile.DialogTitle = "MyApp - SQL OpenFile Utilities" ' Set filters frmShowDB_Code2.dlgOpenFile.Filter = "All Files (*.*)|*.*|Text Files" & _ "(*.txt)|*.txt|SQL Files (*.sql)|*.sql" ' Specify default filter frmShowDB_Code2.dlgOpenFile.FilterIndex = 3 ' Display the Open dialog box frmShowDB_Code2.dlgOpenFile.ShowOpen strOpen = frmShowDB_Code2.dlgOpenFile.FileName ErrHandler: 'User pressed the Cancel button Exit Sub End Sub

-