      

Object reference not set to an instance of an objec
-------------------------------------------------------------------
1-Imports System.Data.SqlClient
2-Imports System.Configuration
3-Imports System.Data
4-Imports System.IO


5-Public Class GeneralDataManager

   6- Public Shared Function InqData(ByVal DSt As DataSet, ByVal QString As String, ByVal StrTbl As String) As DataSet
       7- Using Con As New SqlConnection(ConfigurationManager.ConnectionStrings("dbn1").ConnectionString)
            Dim Adp As New SqlDataAdapter(QString, Con)
            Adp.SelectCommand = New SqlCommand(QString, Con)
            Adp.Fill(DSt, StrTbl)
            Return DSt

        End Using
    End Function


    Public Shared Sub GenerFunction(ByVal SqlString As String)
        Try
            Dim Cmd As New SqlCommand
            Dim CnGeneral As New SqlConnection
            CnGeneral.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & Application.StartupPath & "\dbn1.mdf;Integrated Security=True;User Instance=True"
            CnGeneral.Open()
            If CnGeneral.State = ConnectionState.Closed Then CnGeneral.Open()
            Cmd = CnGeneral.CreateCommand
            Cmd.CommandType = CommandType.Text

            Cmd.CommandText = SqlString
            Cmd.ExecuteNonQuery()
            Cmd.Connection.Close()
            CnGeneral.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class