[Resolvido]Como atribuir valores a VARIÁVEIS com dados de uma tabela?

Bom dia.

Gostaria que me ajudassem com o código abaixo:
Pretendo buscar em uma tabela a Data de Nascimento (DataNasc) e popular a Variável "DataNas"

O código abaixo dá erro! "Era esperado: )" na primeira vírgula.


Dim DataNas As Date
DataNas = ("DataNasc", "Tbl_MembrosDaFamilia", "#" & forms!Fm_CalculaRiscoCV_EntrarDados!CódigoMembrosFamilia & "#")

Como se faz isso? A sintaxe do código acima está correta?

OBS: O FORMULARIO É BASEADO NA TABELA.

Obrigado.

--------------- -
Vou explicar mais detalhadamente o que estou pretendendo...
Na minha tabela "Tbl_MembrosDaFamilia" tenho, entre outros, os campos "CódigoMembrosFamilia" que é a chave primária, o campo "NomeMembroFamilia" e o campo "DataNasc".

Estou querendo "pegar" a data de nascimento da pessoa e coloca-la na MsgBox.
Para isso criei a Variável "DataNas", mas não estou sabendo defini-la....
Veja o código completo abaixo: acho que o erro está na linha 7(sete).

Private Sub txtconsulta_BeforeUpdate(Cancel As Integer)
Dim Busca As String ' Cria a variável "Busca" tipo String
Dim stLinkCriteria As String ' Cria a variável "stLinkCriteria" tipo String
Dim DataNas As Date ' Cria a variável "DataNas" do tipo Data
Busca = Me.txtconsulta.Value 'Define a variável "Busca" como o mesmmo valor que está no campo txtconsulta
stLinkCriteria = "NomeMembroFamilia= '" & Busca & "'" 'Define a variável "stLinkCriteria"
DataNas = Table.Tbl_MembrosDaFamilia.DataNasc.Value
' assim não funcionou: DataNas = ("DataNasc", "Tbl_MembrosDaFamilia", "#" & forms!Fm_CalculaRiscoCV_EntrarDados!CódigoMembrosFamilia & "#")
If DCount("NomeMembroFamilia", "Tbl_MembrosDaFamilia", stLinkCriteria) > 0 Then 'Se na Tabela existe o nome....
Me.Undo ' Se existe, cancela o que foi digitado
Cancel = True
MsgBox "Atenção!" & vbCr & vbCr & "O Paciente " & Busca & "Data de Nascimento: " & DataNas & " , já está cadastrado." & vbCr & vbCr & vbCr & vbCr & "Clique em 'Retornar' ou cadastre um Novo Paciente.", vbInformation, "Duplicado"
End If

Bom dia, Dilson

Obrigado por responder.

O que devo colocar em critério????

Um abraço.

Boa tarde, Dilson.

Tentei o código que você sugeriu, mas dá erro:
"Erro em tempo de execução: 94 - Uso de Null inválido".

Acho que o VBA não está encontrando o registro na tabela talvez porque o CódigoMembrosFamilia não está no formulário... Será isso???

Em anexo estou colocando parte do BD para você analisar quando tiver um tempinho....

No "Fm_CalculaRiscoCV_EntrarDados", entre com um nome já cadastrado .... Por exemplo: Abilio Felicio de Souza, cuja data de Nascimento é 20/08/1940.


Obrigado.

Muito bom, Dilson!

Agora funcionou e, melhor ainda, entendi a lógica da expressão...

Muito obrigado por mais essa ajuda.

Um grande abraço prá você.


Walter