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