Access 2000 - ODBC connection

[Steve]

can anyone please help, the ODBC part of this code does not work can anyone
put me on the right track.

Dim rstProducts As DAO.Recordset
Dim SageODBC As DAO.Recordset

Dim DB As DAO.Database
Dim Sage As DAO.Database



Set DB = OpenDatabase("c:\RDI\rdiintranet\RdiIntranet.mdb")
Set rstProducts = DB.OpenRecordset("Select * From Products order by
Rdi_Product_Code")

Set Sage = OpenConnection("ODBC;DSN=SageLine50v13;UID=steve;PWD=visual")
Set SageODBC = Sage.OpenRecordset("Select * from Stock")