[Resolvido]Carregar subformulário através de conexão

Olá a todos, gostaria de saber como poderia carregar um subformulário desvinculado por conexão

Hoje meus códigos de inserir, alterar e excluir estão funcionando nos formulário, mas hoje meu problema é carregar o subformulário

Para usar as funções nos formulários eu utilizo esse código que esta em um modulo chamado: ModConectar

Option Compare Database
Dim dbBanco As DAO.Database, rsFavorecido As Recordset
Dim strPath As String, SenhaBd As Variant
Public Str As String
Public strBanco As String
Public db As DAO.Database
Public rs As DAO.Recordset
Public RsDup As DAO.Recordset


Public Sub AbreCon(ByVal iSql As String, Optional Tipo = dbOpenDynaset)
'Tipo = dbOpenDynaset ... para recordsets
'       dbOpenSnapshot ... para consultas
strBanco = DLookup("[Path_0]", "tblCaminhoBe")
SenhaBd = DecryptData(DLookup("Senha", "tblCaminhoBE"))
DoCmd.Hourglass True
Set db = DBEngine.OpenDatabase(strBanco, False, False, "MS Access;PWD=" & SenhaBd)
Set rs = db.OpenRecordset(iSql, Tipo, False, dbPessimistic)
DoCmd.Hourglass False
End Sub


Public Sub FechaCon()
DoCmd.Hourglass True
Set rs = Nothing: Close
Set db = Nothing: Close
DoCmd.Hourglass False
End Sub


Como disse essas linhas de comando eu uso nos form, que funciona perfeitamente, meu problema é carregar um subformulário utilizando a função AbreCon()

Como exemplo eu teria a tabela de clientes:

TblCliente

Cliente_Codigo (Auto)
Cliente_Nome (Texto)
Cliente_Telefone (Texto)

Alguem teria alguma ideia de ajuda?

Segue o exemplo para analise

https://www.dropbox.com/home/Public?preview=Project.rar

Descompactar no c:

senha da base de dados - xpto

Obrigado.

Valeu Marcelo pela ajuda.