How to query a backEnd database from a frontend database with a Sql script (1 Viewer)

Private Sub Form_Load()
          
        Dim strPathDb As String, strDbName As String, strRsetTable As String, strBackEndLocation As String, strDBPSW As String
         
         strPathDb = Application.CurrentProject.Path & "\"
         strDbName = "test_be.accdb"
     
         strBackEndLocation = strPathDb & strDbName
         
         strDBPSW = ""
         Me.RecordSource = "SELECT * FROM tblTest IN'' [MS Access;PWD=" & strDBPSW & ";database=" & strBackEndLocation & "]"         
     end sub

 dim BE as DAO.Database
  
 public function openBE() 'call when db opened
     Set BE = DBEngine.OpenDatabase(DBPath , 0, 0, "MS Access" )
 end function

me.recordset=BE.openrecordset("SELECT ....")