Galera estou chamando um relatório feito no CRYSTAL REPORT 7 de notas dos alunos só que ele dá a mensagem de erro n º: 2147417848(80010108) e a mensagem METHOD 'ACTION' OF OBJECT 'CRYSTALCTRL' FAILED

Uso DAO e chamo o relatório da seguinte forma:

Dim BREC As Database

Set BREC = OpenDatabase(App.Path & "CIA.mdb", False, False, SenhaBase)

RN.Connect = SenhaBase
RN.DataFiles(0) = App.Path & "BNotas.mdb"
RN.DataFiles(1) = App.Path & "CIA.mdb"
RN.ReportFileName = App.Path & "RNotas2.rpt"
RN.Formulas(1) = "Cabecalho ='" & LerConfiguracao(True, "Dados_Registro", "Fantasia", "", App.Path & "Config.ini") & "'"
RN.Formulas(2) = "Endereco='" & LerConfiguracao(True, "Dados_Registro", "Endereco", "", App.Path & "Config.ini") & "," & LerConfiguracao(True, "Dados_Registro", "Numero", "", App.Path & "Config.ini") & " " & "-" & " " & LerConfiguracao(True, "Dados_Registro", "Bairro", "", App.Path & "Config.ini") & "'"
RN.Formulas(3) = "Bairro='" & "CEP:" & " " & LerConfiguracao(True, "Dados_Registro", "CEP", "", App.Path & "Config.ini") & " " & "-" & " " & LerConfiguracao(True, "Dados_Registro", "Cidade", "", App.Path & "Config.ini") & "/ " & LerConfiguracao(True, "Dados_Registro", "Estado", "", App.Path & "Config.ini") & "'"
RN.Formulas(4) = "CNPJ='" & "Fone:" & " " & LerConfiguracao(True, "Dados_Registro", "Telefone", "", App.Path & "Config.ini") & " " & "-" & "CNPJ:" & " " & LerConfiguracao(True, "Dados_Registro", "CNPJ", "", App.Path & "Config.ini") & "'"
RN.Formulas(5) = "AnoLetivo='" & GAnoLetivo & "'"
p = "{Notas.Aluno}='" & CboAluno.Text & "'"
'p = p & " And {Notas.Serie}='" & LblSerie & "'"
'p = "{Notas.Serie}='" & LblSerie.Caption & "'"
'p = p & " And {Notas.NotasLetivo}='" & GAnoLetivo & "'"
'p = p & " And {Notas.SB}=True"
'p = p & " And {Notas.FazerFinal}=False"
RN.SelectionFormula = p
RN.Action = 1
alguém poderia me ajudar...

Tr,

 

tente re-estruturar o rpt (DATABASE / Verify database).

se nao resolver faca uma formula menor ou ate retire, se funcionar é a formula. Va acrescentando aos poucos ate achar o erro.