Hi There,

I am a bit confused as the code stops at "SQLOpen" and
could not get around it.

Pls help



Function HKG()
DatabaseName
= "DBQ=S:\rcamatchee\donthula\FinalHongKongDatabase; DriverI
d=281;FIL=MS Access"
QueryString = "SELECT Category_Code ,
Customer_Number,Customer_Name FROM SalesData2003 WHERE
(Quantity=2000)"
Chan = SQLOpen("DSN=" & DatabaseName)
'Chan = SQLOpen("DSN=MS Access Database" & DatabaseName)
SQLExecQuery Chan, QueryString

Set Output = Worksheets("Sheet2").Range("A1")
SQLRetrieve Chan, Output, , , True
SQLClose Chan

End Function