[mmaalmesry]

السلام عليكم و رحمة الله و بركاته

اخوتى الكرام:

عندى مشكلة غريبة لا أعرف إن كانت مرت على أحد منكم أم لا وهى كالتالى :

كود :

   Public Function getTablesnames_Access() As DataTable
       Try
           Dim Conn10 As New OleDbConnection(connection_Access)
           If Conn10.State = ConnectionState.Closed Then Conn10.Open()
           Dim dt_Access As DataTable

           dt_Access = Conn10.GetSuchema("tables", {Nothing, Nothing, Nothing})

           Return dt_Access
       Catch
           MsgBox(Err.Description)
           Return Nothing
       End Try
   End Function

'=============================
   Public Function getTablesnames_SQL() As DataTable
       Try
           Dim Conn3 As New SqlConnection(connection_SQL)
           If Conn3.State = ConnectionState.Closed Then Conn3.Open()

           Dim dt_SQL As DataTable
:100
           dt_SQL = Conn3.GetSchema("tables", {Nothing, Nothing, Nothing})

           Return dt_SQL
       Catch
           MsgBox(Err.Description)
           Return Nothing
       End Try
   End Function

الوظيفتان تعملان على جلب أسماء الجداول فى قاعدتى بيانات اثنين إحدهما أكسس و الأخرى إس كيو إل
و الوظيفتان تعملان بنجاح بشكل منفصل

ولكن إذا استدعيت الوظيفة الأولى ثم استدعت الثانية يتوقف البرنامج ولا يعطى رسالة خطأ و ذلك عند السطر 100

أرجو الإفادة و شكرا