[Resolvido]Carregar dados da tabela no Formulário com DAO

Bom dia, tenho um formulário contínuo no qual deve trazer as informações da tabela, para com isso os usuários editarem ou inserirem algumas informações, este formulário é desvinculado da tabela, ou seja a fonte de registro está vazia, queria trazer os dados da tabela via recordset com o 'dao', mais até o momento não achei essas informações alguém poderia me auxiliar por favor, obrigado.
tentei este exemplo mais não consegui:

Código:


Private Sub Form_Current()
On Error Resume Next

    Dim rs As ADODB.Recordset
    Dim strSQL As String
    
    strSQL = "SELECT * FROM Tbl_Pessoa WHERE Analise = False"
    Set rs = CreateObject("ADO.Recordset")
    rs.Open strSQL, CurrentProject.Connection
    If Not rs.BOF Then
    Forms!Frm_Pessoa!txt_Codigo = rs("Codigo")
    Forms!Frm_Pessoa!txt_Nome = rs("Nome")
    Forms!Frm_Pessoa!txt_Estado = rs("Estado")
    Forms!Frm_Pessoa!txt_Endereco = rs("Endereco")
    End If
    rs.Close
    Set rs = Nothing
End Sub

Muito obrigado.