01.Option Explicit On
02.Imports System.Data
03.Imports System.Data.SqlClient
04.Imports System.Transactions
05.Imports System.Text
06.
07.Module Module1
08.
09. Public Conn As New SqlConnection(strCon)
10. Public Com As New SqlCommand()
11. Public strCon As String = "Data Source=HOME-PC\SQLSERVER;Initial Catalog=MusicTreading;Integrated Security=True"
12. Public ds As New DataSet()
13. Public sb As New StringBuilder()
14. Public Sql As String
15. Public reader As SqlDataReader
16.
17.
18. Public Sub dbOpen()
19. With Conn
20. If .State = ConnectionState.Open Then .Close()
21. .ConnectionString = strCon
22. .Open()
23. End With
24. End Sub
25.End Module
