If you only need to change the RecordSource of the form, it's easy:
Code:
Me.RecordSource = ...
For changing the control source you need to have a list somewhere (in a table, an array, ...) containing the names of the column of the data source. You can then use (here for text boxes):
Code:
Function ChangeControlSource()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then ctl.ControlSource = "<Something>"
Next
End Function