what wrong in that pro?????

[SIN]

hi,
The code:

Dim cn As ADODB.Connection, rs As ADODB.Recordset
Dim sPath As String

Set cn = New ADODB.Connection
cn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\testing\test.mdb"

Set rs = New ADODB.Recordset

rs.Open "Temp_Rates", cn, adOpenKeyset, adLockOptimistic


sPath = "D:\ImportCurrencyRate.xls"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Temp_Rates",
sPath, True ---> eror- the operation requires an open db.

Thaks.