Discuss "Connections" in the .Net Development forum.

Public Class myConfig
    Public Shared ReadOnly Property myConnection() As String
        Get
            Return ConfigurationManager.ConnectionStrings("yourConStringNameInWebConfig").ConnectionString
        End Get
    End Property
End Class

Dim conn As SqlConnection = New SqlConnection(myConfig.myConnection)

  <connectionStrings>
    <add name="myconn" connectionString="Database=mydb;Data Source=mysql.domain.com;Port=3306;User Id=****;Password=****" />
  </connectionStrings>

Imports MySQL.Data.MySqlClient
Imports Company.App.MyBOL
 
    Public Class ConnDAL
        Public Shared ReadOnly Property connString() As String
            Get
                Return System.Configuration.ConfigurationManager.ConnectionStrings.Item("myconn").ConnectionString()
            End Get
        End Property
    End Class
 
    Public Class MyDAL
        Public Shared _error As String
        Public Shared Function Open(ByVal ref As Integer) As MyBOL
            Dim ret As New MyBOL
            Dim conn As MySqlConnection
            Dim mycommand As MySqlCommand
            conn = New MySqlConnection(ConnDAL.connString)
            mycommand = New MySqlCommand("SELECT field1,field2,field3,field4,field5 FROM tbl_name WHERE id=?id")
            mycommand.Connection = conn
            Dim rs As MySqlDataReader
            Try
                mycommand.Parameters.AddWithValue("id", ref)
                conn.Open()
                rsgr = mycommand.ExecuteReader()
                If rsgr.HasRows Then
                    rsgr.Read()
                    ret.property1 = rsgr("field1")
                    ret.property2 = rsgr("field2")
                    ret.property3 = rsgr("field3")
                    ret.property4 = rsgr("field4")
                    ret.property5 = rsgr("field5")
                Else
                    ret.page_error = "No record Found"
                End If
                rsgr.Close()
            Catch ex As Exception
                ret.page_error = ex.Message.ToString
            Finally
                mycommand.Dispose()
                conn.Close()
                conn.Dispose()
            End Try
            Return ret
        End Function
    End Class