Visual Basic - AYUDA!!!!

hola tengo el siguiente codigo:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim sw As Integer, ww As Integer
With cn
.Provider = "sqloledb"
.ConnectionString = "data source=BDATOS;UID=CNAVARRO;PWD=4589;DATABASE=ADUANAS"
.CursorLocation = adUseServer
.Open
End With

rs.Open "select * from [dbo].[tmes_imp_2004]", cn, adOpenStatic, adLockOptimistic

sw = rs.RecordCount
ww = rs.Fields.Count
End Sub

---la tabla tmes_imp_2004 la creo asi

SELECT tipo, ano_prese, mes, SUM(Sumadefob_dolpol) AS SumaFob_Dolpol, SUM(Sumadefle_dolar) AS SumaFle_Dolar,
SUM(Sumadeseg_dolar) AS SumaSeg_Dolar, SUM(Sumadepeso_neto) AS Sumapeso_neto INTO dbo.TMES_IMP_2004
FROM IMP2004
GROUP BY tipo, ano_prese, mes
ORDER BY tipo, ano_prese, mes

el problema es que no me devuelve ninguna fila, alguien me puede decir cual es mi error,
claro que la base de datos esta en otra maquina(servidor) y el usuario es dbo

derepente no hay registros que cumplan con el criterio que haces en tu select