Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Xml

Namespace LL.DataAccess
Public Class dataAccessLayer
	Protected strConn as String = ConfigurationSettings.AppSettings("strConn")
	Protected objCnn As SqlConnection = openConnection()	

	Function openConnection()
		Dim myConnection As SQLConnection = New SQLConnection(strConn)
		Return myConnection
	End Function

	Function CreateSQLCommand(strSQL as String) 
		Dim SqlCommand as New SqlCommand(strSQL,objCnn) 
		Return SqlCommand  
	End Function 


	Function GetNewDataSet(strSQL As String)
		Try
			Dim objDataSet as New DataSet() 
			Dim objAdapter As New SqlDataAdapter() 
			objCnn.Open() 
			objAdapter.SelectCommand = CreateSQLCommand(strSQL) 
			objAdapter.Fill(objDataSet) 
			Return objDataSet 
		Catch Exp as SqlException 
			throw(Exp) 
		Finally 
			objCnn.Close() 
			objCnn.Dispose()
			objCnn = Nothing
		End Try 
	End Function
	
End Class
End Namespace