I had seen this suggestion on another post and tried it, but doing something wrong
Using this..
Dim appAccess As Object
>>Set appAccess = GetObject(DLookup("strImp", "qlkpImpSb"))
appAccess.Visible = True
'import code here
Set appAccess = Nothing
Got "Automation error, Unspecified error" on...