Formulário contínuo desacoplado

Boa tarde, pessoal!
Me desculpem caso exista algum tópico com a mesma dúvida.

Estou tentando desacoplar formulários e manter o back end fechado o máximo possível, porém quando fecho a conexão após a consulta, perco o recordset. (Óbvio?)

Tentei ingenuamente clonar o recordset e fechar o banco na esperança de manter os dados, mas isso não funciona.
Já tem muito tempo que não trabalho com o Access.

Qualquer sugestão é bem vinda.

Augusto

Código:


Private Sub Form_Load()

Dim db As DAO.Database
Dim rsSQL As DAO.Recordset
Dim rs As Recordset

Dim strSql As String
Dim i As Long
Dim val As String

    Set db = DBEngine.Workspaces(0).OpenDatabase("\\131.0.0.1\database_be.accdb")

    strSql = "SELECT * " & vbCrLf & _
                 "FROM assemblers " & vbCrLf & _
                 "ORDER BY assemblers.name;"

    Set rsSQL = db.OpenRecordset(strSql, dbOpenSnapshot)
    
    Set rs = rsSQL.Clone 'isso foi uma tentativa frustrada e deve ser ignorada
    
    Set Me.Recordset = rs 'o formulário é preenchido corretamente

    rsSQL.Close
    Set rsSQL = Nothing
    
    db.Close 'nesse momento o formulário perde as informações
    Set db = Nothing

End Sub



Muito obrigado, João Paulo!
Infelizmente não deu muito certo pra mim.

Eu esperava que após o evento Form_Load o arquivo temporário database_be.laccdb fechasse. Este arquivo só está sendo excluído após fechamento do formulário.

Tive que alterar o tipo de cursor, pois estava dando erro 7965.

   'rsSQL.Open strSql, cnn, adOpenDynamic, adLockPessimistic
   rsSQL.Open strSql, cnn, adOpenStatic, adLockPessimistic

Tentei alterar o tipo de bloqueio para adLockReadOnly na esperança que isso desse o resultado que esperava, mas também não tive sucesso.

Essa é a única maneira de preencher um formulário contínuo?

Muito obrigado.

Muito obrigado, João Paulo.
Como é uma situação temporária, não irei investir mais tempo nessa questão.

Um grande abraço.

Atenciosamente, Augusto