NEW OU IF

Citação:

...para encerrar uma conexão ADO você deve fechar explicitamente os objetos Connection e Recordset instanciados, antes de remover a instà¢ncia.

De outra forma, os objetos em sí não existirão mais, mas a conexão ainda estará "pendurada" no Windows e no banco de dados. O "menos errado" seria, portanto:

...
'Para fechar
rsClientes.Close
adoConnection.Close
Set rsClientes = nothing
Set adoConnection = nothing
 

Uma sugestão: Evite dimensionar e instanciar objetos ao mesmo tempo, isso prejudica o desempenho. Assim, evite sempre fazer algo como:

Dim objRecordset As New ADODB.Recordset

Em seu lugar, faça:

Dim objRecordset As ADODB.Recordset
Set objRecordset = New ADODB.Recordset

é uma linha á mais, sim, quase igual também, mas o processamento será mais rápido nessa segunda forma. E explico o motivo:

Na primeira forma, o VB encontra um "New" antes de encontrar a classe. Como ainda não sabe a classe, ele varre todas as classes que estão referenciadas, montando essa estrutura em memória. Em seguida, ele abre um ponteiro para a variável, que será do tipo Variant (object), mas sem definir o espaço ocupado por não conhecer a classe, invariavelmente esse ponteiro irá referenciar um bloco de memória maior do que o necessário. E só depois disso é que o VB lê a descrição da classe, varrendo a estrutura que montou na memória, encontrando a classe adequada, redimensionando o espaço reservado ao ponteiro e realizando a instà¢ncia (criando o objeto).

Na segunda forma, o VB não encontra nenhum "New", mas sim a descrição da classe. O que ele faz, então? Apenas abre um ponteiro para a variável, já com o tamanho adequado para o objeto que será instanciado, pois a classe já foi indicada. Em seguida, já na segunda linha, ele realiza a instà¢ncia, sem precisar mais nenhum processo.

Assim, você perde mais tempo em escrever duas linhas, uma vez, mas o seu aplicativo ganha mais tempo todas as vezes em que for executado.

Public Sub Fecha(ByVal Obj As Object, Optional ByVal Recria As String = "")
  If Not Obj Is Nothing Then
    If Obj.State <> adStateClosed Then Obj.Close
    Set Obj = Nothing
  End If
  If Recria = "RST" Then Set Obj = New ADODB.Recordset
  If Recria = "CN" Then Set Obj = New ADODB.Connection
End Sub

Fecha rst, "RST"
rst.Open "SELECT * FROM ...."

Fecha rst

Fech Cn