connection string

(lt) connectionstrings (gt)

(lt) add name="MyConnection" connectionstring="Data Source=servername;Initial Catalog=DBName;User ID=sa;pwd=****"(gt)

(lt)/add(gt)
(lt)/connectionstrings(gt)

data access layer

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient

Public Class dal
Public Shared Function strConnectionString() As String
Return ConfigurationManager.ConnectionStrings("MyConnection").ConnectionString
End Function

Public Shared Function ExecuteDataset(ByVal strmysql As String) As DataSet
Dim conn As SqlConnection = New SqlConnection(strConnectionString)

Dim da_sql As SqlDataAdapter
Dim cmd_sql As SqlCommand
Dim ds As New DataSet

Try
da_sql = New SqlDataAdapter()
cmd_sql = New SqlCommand(strmysql, conn)
da_sql.SelectCommand = cmd_sql

da_sql.Fill(ds)

Catch ex As Exception
Throw New Exception(ex.Message)
Finally

conn.Close()

conn = Nothing
da_sql = Nothing
cmd_sql = Nothing

End Try

Return ds

End Function


Public Shared Sub ExecuteNonQuery(ByVal strmysql As String)
Try
Dim conn As SqlConnection = New SqlConnection(strConnectionString)
Dim cmd_sql As SqlCommand
cmd_sql = New SqlCommand(strmysql, conn)
conn.Open()
cmd_sql.ExecuteNonQuery()
conn.Close()
Catch ex As Exception
Finally
End Try
End Sub
End Class