Erro No Insert

[@line]

Alguém poderia me ajudar com esta instrução? Dá erro na linha da instrução:

If rsm.eof then .

"Operação não permitida quando o objeto está fechado".

SQL = "INSERT INTO TempRelTrilhasdeCarreira (ID,CodUnidadeDestino,UnidadeDestino,CodFunçãoDestino,FunçãoDestino) "

SQL = SQL & "SELECT '" & ID & "', Unidades.CodUnidade, Unidades.Unidade, Funções.CodFunção, Funções.Função "

SQL = SQL & "FROM Funções INNER JOIN Unidades "

SQL = SQL & "ON Funções.CodUnidade = Unidades.CodUnidade "

SQL = SQL & "WHERE Funções.NívelFunção <= " & NívelFunção

SQL = SQL & " AND Funções.CodFunção <> '" & CodFunção & "'"

Set RSM = DB.Execute(SQL)

If RSM.EOF Then

[William Rodrigues]

A conexão com o banco de dados está aberta ?

Abraços,

William Rodrigues

[@line]

Sim

Descobri o problema, na verdade uma distração... A instrução é INSERT, logo não retorna linhas.

Obrigada

[William Rodrigues]

Ok...

Abraços,

William Rodrigues