Problema conexao vba

[Caio de Paula]

Boa tarde Pessoal

estou com um problema aqui eu não faço ideia

'a variavel do objeto ou a variavel do bloco with não foi definida'

alguém pode me ajudar

meu codigo

Dim datade, dataate, i

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim sql As String

conn.ConnectionString = "Provider=SQLOLEDB.1;Password=senha;Persist Security Info=True;User ID=sa;Initial Catalog=DADOSAP10;Data Source=LOGAN"

conn.Open

sql = "SELECT P.C5_EMISSAO , P.C5_NUM ,SUM(Convert(DECIMAL(18, 2), (I.C6_VALOR))) as 'TOTAL' FROM SC5070 P INNER JOIN SC6070 I ON(P.C5_NUM = I.C6_NUM) WHERE P.C5_EMISSAO >= '" & datade & "' AND P.C5_EMISSAO <= '" & dataate & "' GROUP BY P.C5_NUM, P.C5_EMISSAO ORDER BY TOTAL"

Set rs = conn.Execute(sql)

o erro ta na ultima linha

abrigado