Connecting a Passthru Query with connection string

I am rusting in writing VBA code - need assistance in modifying the code below.  I have a pass thru query that needs to call the ODBC connection of the DSN name.  I have seen several examples of this code, however, I am unclear on how to modify it to run my pass thru query and accessing or establishing the correct connection.

You assistance is appreciated.
Karen

Public Sub append_new_messages_to_datamart_fact_table()
    Dim rs As ADODB.Recordset
    Dim qdef As QueryDef
    Dim lCt As Long
    Dim conn
    Dim DataConn
    Dim CmdSimpleSelect
    Dim MYSQL As String
   
Set DataConn = Server.CreateObject("ADODB.Connection")
Set CmdSimpleSelect = Server.CreateObject("ADODB.Recordset")
   ODBC;DSN=MySql_Datamart;SERVER=datamart;UID="";PWD=;

DataConn.Open "DSN=MySQl_Datmart"
'Database connection statements.
Set conn = Server.CreateObject("ADODB.Connection")
'conn.Open "DSN=MySQL_datamart"
'conn.Open "DSN=MySQL_datawarehouse"
'conn.Open "DSN=MySQL_aggr"
'conn.Open "DSN=MySQL_ost"
'conn.Open "DSN=MySQL_enterprise"
'conn.Open "DSN=MySQL_mcmds"

    'Set qdef = CurrentDb.QueryDefs("qry_datamart_etl_command")
   
   
MYSQL = (" INSERT INTO datamart.messages_denormalized" & _
" ( OriginalMessageID , System , TransportProvider , Shortcode , Carrier , `MIN` , Body , SystemTime , `InOut` )" & _
" SELECT SMSInboundMessageID , 'EMS' AS System , TP.Name as TransportProvider , SC.Name AS ShortCode ," & _
" C.Name as Carrier , P.MIN , CAST(`Data` AS CHAR CHARACTER SET utf8) Body ," & _
" FROM_UNIXTIME(M.CreationTime) AS Created , 'in' AS `InOut`" & _
" FROM enterprise.sms_inbound_messages M" & _
" LEFT JOIN enterprise.message_transport_providers TP ON M.MessageTransportProviderID = TP.MessageTransportProviderID" & _
" LEFT JOIN enterprise.shortcodes SC ON M.ShortcodeID = SC.ShortcodeID" & _
" LEFT JOIN enterprise.carriers C ON M.CarrierID = C.CarrierID" & _
" LEFT JOIN enterprise.min_profiles P ON M.MINProfileID = P.MINProfileID" & _
" WHERE M.SMSInboundMessageID > (" & _
"      SELECT MAX(OriginalMessageID)" & _
"      FROM datamart.messages_denormalized" & _
"      WHERE `InOut` = 'in' AND System = 'EMS' )")

Set qdef = CurrentDb.QueryDefs(MYSQL)

   ' Set rs = New ADODB.Recordset
   
   ' With rs
    '    .ActiveConnection = CurrentProject.Connection
    '    .CursorLocation = adUseClient
   '     .CursorType = adOpenForwardOnly
     '   .LockType = adLockReadOnly
       
     '   .Source = "SELECT [SQL] FROM etl_commands ORDER BY ord "
       
     '   .Open
       
        Do Until .EOF
            qdef.SQL = !SQL
            qdef.ReturnsRecords = False
            ' Debug.Print !SQL
            qdef.Execute
           
           
            .MoveNext
        Loop
       
        .Close
       
    End With

'Set rs = Nothing
'Set conn = Nothing
   
   
End Sub