Visual Basic - [Ayuda] tengo problemas al conectar un reporte con mi recordset

saludos, tengo un problema al conectar un DataReport con un RecordSet, estoy trabajando en un "padron electoral" el cual tiene un abm para agregar votantes y otro para agregar escuelas y mesas donde vota. estoy conectandome con tecnologia DAO a una base de datos en access.mdb.
El problema surge en el abm de ¿Dónde voto? el el cual dependiendo si la persona es hombre o mujer se realiza una busqueda de tal persona por medio de su clave primaria que es el dni. y esta consulta trae el nombre, apellido, dni, nombre de la escuela, direccion, y nº de mesa. Bueno el resultado de esa busqueda tengo que mostrar en mi reporte les pego el codigo de esa parte para que lo vean:

Private Sub cmdDonde_Click()

If (cmbSexo.Text = "Femenino") Then
sql = "SELECT mujer.nombre as persona, mujer.apellido, mujer.dni, mujer.codigo_mesa, escuela.nombre as escuela, escuela.direccion FROM (mujer INNER JOIN mesa ON mujer.codigo_mesa = mesa.codigo) INNER JOIN escuela ON escuela.codigo = mesa.codigo_escuela where dni = " & Val(txtDni.Text)
Else
sql = "SELECT hombre.nombre as persona, hombre.apellido, hombre.dni, hombre.codigo_mesa, escuela.nombre as escuela, escuela.direccion FROM (hombre INNER JOIN mesa ON hombre.codigo_mesa = mesa.codigo) INNER JOIN escuela ON escuela.codigo = mesa.codigo_escuela where dni = " & Val(txtDni.Text)
End If

Set rsPadron = base.OpenRecordset(sql)
If (rsPadron.RecordCount > 0) Then
lblNombre.Caption = rsPadron!persona
PersonaVoto = rsPadron!persona
lblApellido.Caption = rsPadron!apellido
ApellidoVoto = rsPadron!apellido
lblDni.Caption = rsPadron!dni
DniVoto = rsPadron!dni
lblEscuela.Caption = rsPadron!escuela
EscuelaVoto = rsPadron!escuela
lblDireccion.Caption = rsPadron!direccion
DireccionVoto = rsPadron!direccion
lblMesa.Caption = rsPadron!codigo_mesa
mesavoto = rsPadron!codigo_mesa
Else
MsgBox ("la persona no esta registrada")
End If

End Sub

Private Sub cmdReporte_Click()
Set data.DataSource = rsPadron "Aqui me sale Erro #### no coinciden los tipos"
data.Sections("sección1").Controls("Etiqueta2").Caption = DniVoto
data.Sections("sección1").Controls("Etiqueta3").Caption = PersonaVoto
data.Sections("sección1").Controls("Etiqueta4").Caption = ApellidoVoto
data.Show
End Sub
las variables esas son de tipo global creadas en mi modulo.
Espero haberme explicado bien, desde ya muchas gracias!