[s3eed]

class 1
هو كلاس فيه الاتصال بقواعد البيانات وداخله تعريف sqlcon

في حالة حدف class1
لايتم التعرف على sqlcon
فلا ادري اي المشكلة هل بالاتصال بالكلاس ام في sqlcon

كود :

Imports System.Data.SqlClient
Imports System.Globalization
Public Class Class1
   Public Shared sqlcon As New SqlConnection

'دالة جلب البيانات من قاعدة البيانات
   Public Function SQLReturn(ByVal SQLStatment As String) As DataSet
       Dim ds As New DataSet
       Try
           If sqlcon.State = ConnectionState.Open Then
               sqlcon.Close()

           End If
           Dim sda As New SqlDataAdapter(SQLStatment, sqlcon)
           sda.Fill(ds)

       Catch ex As Exception
           MsgBox(ex.Message)
       Finally
           sqlcon.Close()

       End Try
       Return ds
   End Function