I pass a fieldname argument (SourceFldName) to this sub. Let's say the field name is [FirstName]
Sub TESTING(TblName As String, SourceFldName As String, TargetFldName As String)
Dim rs As DAO.Recordset, MySQL As String, PString As String, MyBool As Boolean
On Error GoTo Bottom
MySQL = "SELECT " & SourceFldName & " FROM " & TblName & ";"
Set rs = DBEngine(0)(0).OpenRecordset(MySQL)
rs.MoveFirst
Do While Not rs.EOF
Debug.Print rs!FirstName (THIS IS WHAT I WANT - HOW CAN I USE THE ARGUMENT VARIABLE???)
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Bottom:
MsgBox "end of the line"
End Sub