[Resolvido]Listar, comparar e extrair dados de Tabela via VBA no Access 2007/2010

Pessoal, tem como Listar, comparar e extrair dados de Tabela via VBA no Access, como se faz no PHP, tipo:

===== código =====
Private Sub SearchCaso_Click()
On Error Resume Next
Me.txtAnoE.SetFocus
Dim I As Long
Dim rss As DAO.Recordset
Set rss = CurrentDb.OpenRecordset("SELECT * FROM Casos WHERE [Controle]=" & Me!txtControleE.Value, dbOpenDynaset)
For I = 0 To rss.Fields.Count - 1
If rss("Controle").Value = Me!txtControleE.Value Then
Me.txtGeralE.Enabled = True
Me.txtGeralE.Value = [RedeGeral]
Exit Sub
Else
MsgBox "Nenhum dado encontrado!", vbCritical, "Aviso"
Me.txtGeralE.Enabled = False
Exit Sub
End If
End Sub
=====================

Desde já agradeço, Paz e Luz

Consegui resolver desta maneira descrita abaixo, mas demora um pouco para escrever os dados em todos os campos, caso alguém saiba resolver...

===== CÓDIGO =====
Private Sub SearchCaso_Click()
On Error Resume Next
Me.txtAnoE.SetFocus

If DLookup("[Controle]", "Casos", "[Controle] ='" & Me!txtControleE & "'") Then

Me!CodGeradoE = (DLookup("[CodCaso]", "Casos", "[Controle] ='" & Me!txtControleE & "'"))
Me!txtGeralE = (DLookup("[RedeGeral]", "Casos", "[Controle] ='" & Me!txtControleE & "'"))
Me!txtHospitalarE = (DLookup("[RedeHospitalar]", "Casos", "[Controle] ='" & Me!txtControleE & "'"))
Me!txtMaternidadeE = (DLookup("[Maternidade]", "Casos", "[Controle] ='" & Me!txtControleE & "'"))
Me!txtConsultasE = (DLookup("[Consultas]", "Casos", "[Controle] ='" & Me!txtControleE & "'"))
Me!txtExamesE = (DLookup("[Exames]", "Casos", "[Controle] ='" & Me!txtControleE & "'"))
Me!txtProcMédicosE = (DLookup("[ProcMédicos]", "Casos", "[Controle] ='" & Me!txtControleE & "'"))
Me!txtCirurgiasE = (DLookup("[Cirurgias]", "Casos", "[Controle] ='" & Me!txtControleE & "'"))
Me!txtInternaçõesE = (DLookup("[Internações]", "Casos", "[Controle] ='" & Me!txtControleE & "'"))
Me!txtProcOdontoE = (DLookup("[ProcOdonto]", "Casos", "[Controle] ='" & Me!txtControleE & "'"))
Me!txtMedicamentosE = (DLookup("[Medicamentos]", "Casos", "[Controle] ='" & Me!txtControleE & "'"))
Me!txtOutrosE = (DLookup("[Outros]", "Casos", "[Controle] ='" & Me!txtControleE & "'"))
Exit Sub
Else
MsgBox "Nenhum dado encontrado!", vbCritical, "Aviso"
Exit Sub
End If

End Sub
================

Boa tarde,
Pode utilizar recordset ou uma melhoria da função dlookup que o Mestre Avelino Sampaio já disponibilizou no fórum.
Logo que tenha resolvido, marque resolvido

Vou esperar mais um pouco para ver se alguém consegui me ajudar
Obrigado!

Alexandre estava correto... Usei "recordset" e resolvi o problema.