MS Access VBA Insert Into Select Function For versions 2000, 2002, 2003, 2007

Function AppendTable(toTableName As String , frmTableName As String , _
      FieldName As String , FieldName2 As String ) As Boolean

   ' Append To a Table toTableName from another table frmTableName .
   ' Accepts
   ' toTableName: Name of table to Append to
   ' frmTableName: Name of table to Append from
   ' FieldName: Name of the field to Append
   ' FieldName2: Name of the second field to Append

   ' Returns True on success, false otherwise
   'USAGE: AppendTable "toTableName", "frmTableName", "FieldName", "FieldName2"
   On Error GoTo errhandler
   Dim strSql As String , Db As dao.Database


   'Create the Append Insert Into Select SQL Code from our Four String Values

   strSql = "INSERT INTO " & toTableName & "(" & FieldName & ", " & FieldName2 & ")" & _
         " SELECT " & "[" & frmTableName & "]." & FieldName & ",[" & frmTableName & "]." & FieldName2 & _
         " FROM " & frmTableName & ";"


   'Print the SQL so we can paste into the query build if there are errors
   Debug.Print strSql
   'Use Current Database
   Set Db = CurrentDb()


   'Run the SQL Query
   Db.Execute strSql

   'If no errors return true
   AppendTable = True
ExitHere:

   Set Db = Nothing

   'Notify the user the process is complete.
   MsgBox "Insert Into Select Complete"
   Exit Function
errhandler:
   'There is an error return false
   AppendTable = False
   With Err
      MsgBox "Error " & .Number & vbCrLf & .Description, _
            vbOKOnly Or vbCritical, "AppendTable"
   End With
   Resume ExitHere
End Function