Mdulo Actual_numfra

Function Actual_numfra() As String
'***********************************************************************************
'&                                                                                &*
'&                                                                                &*
'&                                                                                &*
'&                                                                                &*
'&                                                                                &*
'&                                                                                &*
'&                                                                                &*
'& Para llamar a esta funcion                                                     &*
'& Si es un Formulario o SubFormulario en el evento AlCargar                      &*
'& Me.RecordSource = Actual_numfra                                                &*
'&                                                                                &*
'& Si es un Cuadro Lista o Combo                                                  &*
'& Me![El Cuadro].RowSource = Actual_numfra                                       &*
'&                                                                                &*
'&                                                                                &*
'***********************************************************************************

On Local Error GoTo VerError
    Actual_numfra = "UPDATE Tareas"
    Actual_numfra = Actual_numfra & " INNER JOIN facturas"
    Actual_numfra = Actual_numfra & " ON Tareas.id = facturas.id_tareas SET Tareas.factura = [facturas]![Numero];"
    Actual_numfra = Actual_numfra & " "
Exit Function
VerError:
msgbox "Error #  " & Err.Number & vbCrLf & Err.Description, vbInformation
End Function


+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
En el formulario coloco:

Private Sub Form_Load()
Me.RecordSource = Actual_numfra
End Sub

Y me produce este error

Error:

Se esperaba una variable o un procedimiento, no un mdulo