[Resolvido]Erro com Access RunTime 2007 - DAO

bom dia,

não sei se esse é o lugar certo pra colocar a situação, mas é o seguinte:

tenho uma aplicação que faz uso do bendito

dim db as DAO.database
dim rs as db.Recordset



o problema esta que quando vou rodar pelo RunTime ou seja "arquivo.accdr" ele da erro e fecha,
alguém sabe o que pode ser ?
ja verifiquei as referencias e compilei o arquivo e tudo certo,

detalhe, ele executa a "sql" e depois fecha o sistema.

mas sempre que mudo a extensão para .accdr da o erro quando uso o access normal tudo funciona beleza.

agradeço qualquer ajuda.

Ponha todo o código da function/sub para vermos.

Veja as dicas do Professor Avelino Sampaio.

http://www.usandoaccess.com.br/tutoriais/tuto3.asp

E ao mesmo teste, mudando a declaração para:

dim db as DAO.database
dim rs as DAO.Recordset

boa tarde,

ja vou agradecendo a ajuda.

segue código pra analise, mas se quiser mando oaplicativo.

quando mudo pra accdr. da erro e fecha.

----------- executo esse no botao do form acesso.

Option Compare Database
Option Explicit


Function acesso()
On Error GoTo Acesso_Erro:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset

Dim Usuario As String
Dim Senha As String
Dim cont As Integer

If Form_Frm_Acesso.Usuario.Value <> "" Then
Usuario = Form_Frm_Acesso.Usuario.Value
Else
MsgBox "Usuário ou Senha não Informado. Verifique!", vbOKOnly, "Controle de Acesso"
Form_Frm_Acesso.Usuario.Value = ""
Form_Frm_Acesso.Usuario.SetFocus
DoCmd.CancelEvent
Exit Function
End If

If Form_Frm_Acesso.Senha.Value <> "" Then
Senha = Form_Frm_Acesso.Senha.Value
Else
MsgBox "Usuário ou Senha não Informado. Verifique!", vbOKOnly, "Controle de Acesso"
Form_Frm_Acesso.Senha.Value = ""
'Form_Frm_Acesso.Usuario.SetFocus
DoCmd.CancelEvent
Exit Function
End If


Set db = CurrentDb



'Set rs = db.OpenRecordset("USUARIO", dbOpenDynaset, dbSeeChanges)


Set rs = db.OpenRecordset("USUARIO")
Set rs1 = db.OpenRecordset("USUARIO_ACESSO")

cont = rs1.RecordCount

If cont >= 1 Then
rs1.Delete
End If

If Form_Frm_Acesso.Usuario.Value = "" Then
MsgBox "Informe o usuario", vbExclamation, "Sistema Integrado"
Else

cont = rs.RecordCount
If cont >= 1 Then

rs.MoveFirst

Do While Not rs.EOF = True

If rs!LOGIN = Usuario And rs!Senha1 = Senha Then
Form_Frm_Acesso.Visible = False
rs1.AddNew
rs1!Usuario.Value = rs!CODIGO.Value
rs1!NIVEL_ACESSO.Value = rs!NIVEL_ACESSO.Value
rs1.Update

DoCmd.Close acForm, "Frm_Acesso"
DoCmd.OpenForm "Frm_BemVindo"

'Form_Frm_Principal.RecordSource = "EMPRESA_ATIVADA"

'IP_Servidor

End

Exit Function
End If
rs.MoveNext
'Else



Loop

DoCmd.CancelEvent
MsgBox "Usuários ou senha inválidos. Verifique!", vbCritical, "Sistema Integrado"
Form_Frm_Acesso.Usuario.Value = ""
Form_Frm_Acesso.Senha.Value = ""
Form_Frm_Acesso.Usuario.SetFocus
End

Exit Function
End If

End If

On Error GoTo 0


Exit Function

Acesso_Erro:


MsgBox "Ocorreu um erro na aplicação." & vbCr & "Relate os dados abaixo ao suporte." & vbCr & _
"Erro Nº: " & Err.Number & vbCr & _
"Descrição do erro: " & Err.Description & vbCr & _
"Módulo: " & "MD_Acesso" & vbCr & _
"Procedimento: " & "Carrega Formulario", vbExclamation, "Sistema"


End Function



ja ia me esquecendo
usuario: suporte
senha: 1

no access abre normail no runtime fechar.

bom dia, companheiros ninguém tem ideia do que possa ser ??