Connection Module

Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic

Public Class clsConnection
    Public Sub connectDatabase()
        On Error GoTo 0
        Dim connectionString As String

 // IF USING TEXT FILE FOR CONNECTION

        Dim Server_Name As String = "path"
        Dim objReader As New System.IO.StreamReader(Server_Name)
        Dim SName As String = objReader.ReadToEnd

// FOR ACCESS DB
        If Len(pubCNN.ConnectionString) = 0 Then
            pubCNN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + SName + ";Persist Security Info=True"
            pubCNN.Open()
        End If

// FOR SQL DB
 connectionString = "Provider=SQLOLEDB;Data Source=" + SName + ";Initial Catalog= DBNAME;User Id=sa;"
         pubCNN = New OleDbConnection(connectionString)
        pubCNN.Open()

//
        Exit Sub

0:
        MsgBox(Err.Description)
    End Sub

    Public Sub disconnectDatabase()
        pubCNN.Close()
    End Sub
End Class