Getting Office Automation to work within VB6
Posted on 2010-09-01
I have a VB application the uses data from a MSAccess DB. I have this code that works correctly.
Set acApp = CreateObject("Access.Application")
.DoCmd.TransferText , "UPS_Import_Raw", "UPSImport", _
mPathImport & mFile1, False
Set acApp = Nothing
When I change the DoCmd.OpenQuery "qryName" the code fails with something about Office Automation failing. The "qryName" is a simple update query. Is there anyway to get this sort of query to work from within VB?