Private _cInfo As String
 
    Public Sub New(ByVal cInfo As String)
        MyBase.New()
        _cInfo = cInfo
    End Sub

_cInfo = SqlConnection1.ConnectionString

If it was hard to code, it should be hard to read too.