Currently my Return code generator is doing a Msgbox,

I tried ChatGPT with the following question:

how do I get a variable to write to a field in Access VBA

It came up with the following code:

Details

Sub UpdateFieldUsingSQL()
    Dim db As DAO.Database
    Dim strSQL As String
    Dim myVariable As String
    
    ' Assign a value to the variable
    myVariable = "New Value"
    
    ' Set the SQL statement to update the field
    strSQL = "UPDATE MyTable SET MyField = '" & myVariable & "' WHERE SomeCondition = True"
    
    ' Run the SQL query
    DoCmd.RunSQL strSQL
End Sub
Copy

Explanation:
- MyTable: The table you're updating.
- MyField: The field you're updating.
- myVariable: The value you're setting the field to.
- SomeCondition = True: A condition to specify which records to update.
Make sure that if you're dealing with text fields, you properly enclose string variables in quotes (').

Is there an easier way of doing this?  It very confusing.