Here is what I use:
Code:
Option Compare Database
Option Explicit
Global Const gstrBasePath = "C:\Users\June\"
___________
Dim strZip As String
Dim objApp As Object
strZip = gstrBasePath & "Editing\ConstructionExtract.zip"
'create empty zip folder
'found this on web, no idea what the Print line does but if it isn't there, this won't work
Open strZip For Output As #1
Print #1, "PK" & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
Set objApp = CreateObject("Shell.Application")
'copy file into zip folder
'variable for source file doesn't seem to work in this line also double parens not in original example code but won't work without
objApp.NameSpace((strZip)).CopyHere gstrBasePath & "Editing\ConstructionExtract.accdb"