Trabalhando com DAO

Bom dia!
Procurei algo sobre DAO aqui no fórum e não encontrei,
Gostaria de começar a trabalhar com DAO, mas não tenho nenhum exemplo no repositório para eu estudar, alguém pode dar uma força?

Os principais focos é:
Carregar um formulário com dados de uma tabela,
Carregar um subformulário com dados de uma tabela,
Atualizar dados de um formulário,
Inserir dados de um formulário,
Excluir dados de um formulário,
E consultas SQL.

Se existe algum tópico, algum banco compartilha para nós estudarmos.

Pois hoje, parei para pensar e me vejo como estou aprendendo e muito só neste fórum, em 10 meses já progredi muito nos estudos do Access e vba, e agora quero partir para um mais avançado...

Agradeço a todos do fórum!

Dê uma procurada por Recordset. Alguns deles utiliza o DAO. Caso não encontre, utilize os Recordsets incluindo o DAO.

Exemplo sem DAO:

Código:

Dim db As Database, rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("NomeTabela")

O mesmo exemplo com DAO:

Código:

Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("NomeTabela")

Naturalmente e obviamente, a referência ao Microsoft DAO precisa estar marcada.

Boa tarde, dhtm
Existem muitos assuntos tratados que envolvem DAO.
Apenas alguns:
maximoaccess.forumeiros.com/t9691-resolvidodistribuicao-de-tarefas
maximoaccess.forumeiros.com/t9629-resolvidoimportar-txt-com-duas-linha-para-o-mesmo-registro
maximoaccess.forumeiros.com/t9577-resolvidoupdate-nao-exporta-todos-os-campos-do-sub-formulario
maximoaccess.forumeiros.com/t9351-resolvidoid-nao-e-um-indice-desta-tabela
maximoaccess.forumeiros.com/t8185-resolvidoexportar-para-excel-iniciando-em-celula-especifica-e-cabecalho-da-coluna

Não existirá nenhum que lhe sirva como uma luva, mas estude por sebentas que encontrará na internet
O princípio é conhecer a arquictetura para, depois, implementar

Eu não consegui nada que venha me ajudar como isto:

Código:

Private Sub Form_Load()
' Abrindo conexão com o banco
caminhodb = CurrentDb.Name
Set db = DBEngine.OpenDatabase(caminhodb) ' Se você usa Back End, então só especificar o caminho com CurrentProject.Name & "\Nome.mdb"
Set rc = db.QueryDefs("CadastroDeEquipamentosNRBC_dlookupD")
SQL = rc.SQL
Set rs = db.OpenRecordset(SQL)
' Fim do código

Set Me.Recordset = rs
trct.Caption = Me.RCTn°

Dim caA As Integer
Dim caB As Integer
' Abrindo conexão com o banco
caA = Me.ClienteCódigo
caB = Me.RegistroN°
caminhodb = "\\SERVIDOR\Sistemas\Laudos 2012\Calibração_be.mdb"
Set db = DBEngine.OpenDatabase(caminhodb) ' Se você usa Back End, então só especificar o caminho com CurrentProject.Name & "\Nome.mdb"
Set rs1 = db.OpenRecordset("SELECT RCTn°, ClienteCódigo, RegistroN°, Calibrado, Freq, Periodic, DateAdd('m',[Freq],[Calibrado]) AS Próx, respcad, datacad FROM [Registro da CalibraçãoNRBC] WHERE [ClienteCódigo]= caA AND [RegistroN°]= caB ")
' Fim do código

Set Me.Calibrações_subformulário.Form.Recordset = rs1
End Sub

Na rs1 estou tendo um problema com o Where usando o DAO, pois a maneira de escrever na DAO é um pouco diferente do que em uma consulta... se sairia assim:

Código:

SELECT [Registro da CalibraçãoNRBC].RCTn°, [Registro da CalibraçãoNRBC].ClienteCódigo, [Registro da CalibraçãoNRBC].RegistroN°, [Registro da CalibraçãoNRBC].Calibrado, [Registro da CalibraçãoNRBC].Freq, [Registro da CalibraçãoNRBC].Periodic, DateAdd("m",[Freq],[Calibrado]) AS Próx, [Registro da CalibraçãoNRBC].respcad, [Registro da CalibraçãoNRBC].datacad
FROM [Registro da CalibraçãoNRBC]
WHERE ((([Registro da CalibraçãoNRBC].ClienteCódigo)=[Formulários]![Formulário_CadastroDeEquipamentosNRBC]![ClienteCódigo]) AND (([Registro da CalibraçãoNRBC].RegistroN°)=[Formulários]![Formulário_CadastroDeEquipamentosNRBC]![RegistroN°]));


Então gostaria de chamar os 2 campos carregados no formulário principal, para amarrar os campo mestre, ou seja filtrar algo como ID = ID e Código = Código, então quando eu mover o registro, ele filtra na sub conteúdos daquele registro...

Já tentei usar também Where [Campo]='" & String & "' And [Campo]='" & String2 & "')" Mas não funciona...