Problemas em carregar DLL

Prezados, boa noite!!!!

Estou com um problema para carregar uma DLL no meu sistema, ela sempre acaba fechando o Access e abrindo novamente.

Segue abaixo o código que estou utilizando:

Private Declare Function GeraTNs Lib "C:\...\TNMais.dll" (ByVal CodC As Long, ByVal CodTip As Long, ByVal NumPed As String, ByVal cpfcnpj As String, ByVal QntCPFCNPJ As Long, ByVal TipS As Long, ByVal Protocol As Long, ByVal TipoAcao As Long, ByVal DataHora As String, ByVal ChaveD As String) As String

Private Sub Comando12_Click()
Dim codcat As Long
Dim codato As Long
Dim nmped As String
Dim cpfcnpj As String
Dim qtdcpfcnpj As Long
Dim tpsel As Long
Dim proto As Long
Dim tpacao As Long
Dim dat As String
Dim chave As String

codcat = 18380
codato = 7
nmped = "KEqod.2N7I7"
cpfcnpj = "12345678901"
qtdcpfcnpj = 1
tpsel = 4
proto = 0
tpacao = 0
dat = "01/01/2013 10:30:40"
chave = "9jw0K.ESA67"

Me.Texto0 = GeraTNs(codcat, codato, nmped, cpfcnpj, qtdcpfcnpj, tpsel, proto, tpacao, dat, chave)
End Sub

Alguém pode me ajudar, já tentei de várias formas e nada.

Desde já agradeço.
Obrigado.

Você já registrou a DLL usando o regsvr32?

Olá Marcos!

Segundo a empresa que me passou a DLL, eu não preciso registrá-la, mais sim apenas chamar a função diretamente através do código.

Mas já tentei registrá-la sim, porém sem sucesso.

Alguém possui mais alguma sugestão???? já tentei de tudo e nada resolve.