Access - recorrer registros al cargar formulario

Hola compañeros,
en un foro encontre este codigo que lo he modificado y cuado activo el registro me lanza el msgBox si es aniversario... ¿pero como puedo hacer que al cargarme el formulario recorra los registros automaticamente?
he hecho alguna prueba con resultados negativos...
codigo:(tengo un campo que es la fecha nacimiento)

Private Sub Form_Current()
If Format(Date, "dd-mm") = Format([fecha nacimiento], "dd-mm") Then
MsgBox "hoy " & [Nombre] & " " & [Apellidos] & " cumple " & [edat_actual] & " años"
End If
End Sub

Hola:
Prueba de esta forma:

Dim rst As DAO.Recordset
Dim ssql As String
Dim fechaHoy As String
Dim strNombre As String

fechaHoy = Format(Date, "dd/mm")

ssql = "SELECT Nombre & ' ' & Apellidos As rN, [fecha nacimiento] FROM Tabla1 "
ssql = ssql & "WHERE Cstr(Format([fecha nacimiento],'dd/mm')) = '" & fechaHoy & "' "

Set rst = CurrentDb.OpenRecordset(ssql)

If rst.RecordCount = 0 Then
rst.Close
Set rst = Nothing
Exit Sub
End If

rst.MoveLast
rst.MoveFirst

While Not rst.EOF
strNombre = strNombre & vbCrLf & rst!rN
rst.MoveNext
Wend

MsgBox "Hoy cumplen años las siguientes personas:" & strNombre, _
vbInformation, "FELIZ CUMPLEAÑOS"

rst.Close
Set rst = Nothing

La verdad es que a mí me ha vuelto loco hasta que puse un MsgBox:
Dim fechaHoy As Date
fechaHoy = Format(Date,"dd/mm")
MsgBox fechaHoy

y verás que también devuelve el año, por eso el pasar esa variable a String y convetir también a String el campo fecha nacimiento.

Un Saludo