Just stops? Do you get an error? Is the add-in loaded? Do you even
have the add-in? ...

Microsoft Knowledge Base Article - 288118
XL2002: Add-Ins That Are No Longer Included with Microsoft Excel
http://support.microsoft.com/default...b;en-us;288118

<snip
The following add-ins are no longer included with Microsoft Excel
2002, and are not available for downloading:
• ODBC Add-in
</snip

--


"Rama" wrote in message ...
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