Private m_oConexao As New ADODB.Connection                          'conexão com o banco de dados para poder ler as linhas das tabelas do mesmo
Private rs_trechosDeRede As New ADODB.Recordset                     'lista de trechos de rede que foram selecionados pela cerca pelo usuário do GeoSan para serem exportados para o Epanet
Private no as string

'Recebe a conexão com o banco de dados a partir de instanciada a classe e passada a conexão para a mesma, armazenando a conexão até o final da aplicação
'Isto permitirá todas as operações com banco de dados
'
Property Set Conexao(oConexao As ADODB.Connection)
    Set m_oConexao = oConexao
End Property

'Recebe o número do nó
'
Property Let NumeroDoNo(sNo As String)
    no = sNo
End Property

'Obtém o número do nó inicial do trecho de rede
'
Property Get NumeroDoNoInicialDoTrecho() As String
    NumeroDoNoInicialDoTrecho = rs_trechosDeRede.Fields("InitialComponent").Value
End Property

Public banco As New RedeBancoDados
Public numeroNo As String

...

    Set banco.Conexao = conn
    NO = banco.NumeroDoNoInicialDoTrecho
    banco.NumeroDoNo = numeroNo