Erro de Compilação

Prezados,

Estou iniciando em VB e estou desenvolvendo um projeto que está travado no seguinte erro...

"Erro de compilação:

O tipo definido pelo usuário não foi definido"

Segue o código onde está ocorrendo o erro. Após o erro fica destacado esta parte do código "rs As DAC.Recordset"

Private Sub BtnAdTodos_Click()
Dim rs As DAC.Recordset

CurrentDb.Execute "DELETE FROM TBL_USUARIO_FORMULARIOS WHERE ID_USUARIO =" & Me.CbxUsuarios, dbFailOnError

Set rs = CurrentDb.OpenRecordset("TBL_FORMULARIOS")

Do Until rs.EOF
CurrentDb.Execute "INSERT INTO TBL_USUARIO_FORMULARIOS (ID_USUARIO, ID_FORM) VALUES(" & Me.CbxUsuarios & "," & rs!ID_FORM & ")", dbFailOnError
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Me.LbxPermitidos.Requery

End Sub

Utilizo o Microsoft Access 2013.

Desde já agradeço.

Olá Diniz,

O erro está na declaração da variavel de recordset:
Dim rs As DAC.Recordset

Correto:
Dim rs As DAO.Recordset

Compile novamente e verifique se ocorrem erros.

É isso

Att,

Alexandre Fim

Fiz a correção que você indicou e funcionou.

Valeu. Muito obrigado pela orientação.

Ok, Diniz !!

Sempre que precisar este forum vai te ajudar.

Por gentileza, marque o tópico como "Resolvido"

Veja no link como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Boa sorte...o fórum agradece.

Att,

Alexandre Fim

Boa tarde e bem-vindo à participação no fórum
Leia as regras e respeite-as. A sala de repositórios não serve para tirar dúvidas, por isso, movi-lhe o tema para esta sala