[Resolvido]Preencher campos automaticamente

Oi, bom dia. Tenho o bd em anexo e queria que ao digitar no campo CPF automaticamente os campos Proposto, Telefone, Aluno, RG e Email fossem preenchidos. Tentei com a função DLOOKUP mas fica dando um erro de sintaxe.
Queria também que ao escolher no campo "Aluno" a opção Graduação, no campo "Unidade" fosse selecionado Unidade2.

Desde já agradeço

Faça por Recordset;

Código:

Private Sub CPF_AfterUpdate()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
   
   
    Me.CPF.SetFocus
    If Me.CPF.Value > 0 Then
        strSQL = "SELECT * FROM PCDP WHERE CPF = '" & Me.CPF.Value & "'"
   
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL)
        If Not rs.BOF Then
            Me.Telefone = rs("Telefone")
            Me.Aluno = rs("Aluno")
            Me.Documentos = rs("Documentos")
            Me.Email = rs("Email")
            Me.Proposto = rs("Proposto")
            Me.Unidade = rs("Unidade")
        End If
        rs.Close
        Set rs = Nothing
        db.Close
        Set db = Nothing
    End If
End Sub

Oi JPaulo, muito obrigado. Funcionou. Quanto à outra dúvida eu fiz assim e deu certo:

Private Sub Aluno_BeforeUpdate(Cancel As Integer)
If Me.Aluno = "Pós-Graduação" Then
Me.Unidade.Value = 2
Else
Me.Unidade.Value = ""
End If
End Sub

Obrigado pelo retorno o forum agradece.