Retrive records from sql server to MS project via VBA?

[Effie Ram]

Following is a code that i have took from the help file in order to get sql
table's records into MS project file
'-----------------------

Set wrkODBC = CreateWorkspace("", "admin", "")
Set conPubs = wrkODBC.OpenConnection("DRIVER=SQL
Server;SERVER=serverName;UID=user1;PWD=pass1;APP=Microsoft® Windows®
Operating System;Network=DBMSSOCN;Address=ServerAddress;DATABASE=DB_name")
Set rstTemp = conPubs.OpenRecordset("SELECT * FROM tbl_EEs", dbOpenDynamic)

'------------------
....But, not working.
Any help will be appreciate, or other method to read from sql.
TIA, Effie.