Current error Handler in first line of routine is : On Error GoTo Err_Handler
In ide this method is not good because is not possible to debug routine when when it comes generated an error. Change all routine using If InIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler: The "InIDE" is the global variable which indicate if program running in VB Design Environment (ide). This is a method to retrive if execution is in ide. ------------------------------ '''module global Global InIDE As Boolean '''module api Public Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long '''module misc sub main .... InIDE = InVBDesignEnvironment .... end sub 'verify if execution of pgAdin2 is in ide Public Function InVBDesignEnvironment() As Boolean Dim szFileName As String Dim lCount As Long szFileName = String(255, 0) lCount = GetModuleFileName(App.hInstance, szFileName, 255) szFileName = Left(szFileName, lCount) InVBDesignEnvironment = False If UCase(Right(szFileName, 7)) = "VB6.EXE" Then InVBDesignEnvironment = True End Function Bye !! Frank Lupo (Wolf) !! /\_ _/\ \ o o / --ooo-----ooo--- -- Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f Sponsor: Speciale voli a soli 80 Euro...affrettatevi, cliccate e partite per la Scandinavia Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=1228&d=4-3 ---------------------------(end of broadcast)--------------------------- TIP 3: if posting/reading through Usenet, please send an appropriate subscribe-nomail command to [EMAIL PROTECTED] so that your message can get through to the mailing list cleanly