oh my gosh! I think i just solved it
Dim frmMaps As Form, ctlRect As Control
Set frmMaps = CreateForm
Set ctlRect = CreateControl(frmMaps.Name, acRectangle, acDetail, , , 100, 100, 12000, 3400)
DoCmd.Restore
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Table1")...