Erro ao Criar Objeto

[Thiago Albuquerque]

Boa Noite,

Estou com um erro ao tentar criar um objeto. Abaixo segue o trecho do código:

Public Function Conecta() As Object
  
On Error GoTo Erro

  Call ConfiguraParametros
  Set obj = CreateObject(DLL)
  
  With Simulador
    .Destination = Destination 
    .Client = Client 
    .UserID = UserID 
    .Password = Password 
  
  End With
  
 Set Conecta = obj
    
  If Not (CompSapDcom Is Nothing) Then
  GravaLog "nothing: ", False
    Set CompSapDcom = Nothing
  End If

Erro:
  App.LogEvent "Erro: " & Err.Number & " - " & Err.Description & " (" & Err.Source & ")" & vbCrLf, 1

End Function

A Call ConfiguraParametros traz alguns parametros e um desses é o nome da DDL que estou tentando criar o objeto. E os campos: Destination, Client , UserID e Password também vem dessa Call.

alguém tem ideia de o que pode está acontecendo?

Desde já agradeço!

Edited August 5, 2011 by kuroi
Adicionar tag CODE

[MRMB]

Thiago Albuquerque,

Eu particularmente uso pouco instrução "Call".

Você poderia listar os parâmetros que estão na variavel ConfiguraParametros.

No caso você não poderia instanciar o objeto da forma abaixo:

' Essa é a melhor opção.
    Dim objTeste As EXTeste.clsTeste
    Set clsUsuario = New EXTeste.clsTeste

Penso que utilizar "CreateObject" não seja uma boa opção pelo fato que ele terá de identificar/procurar a classe para instanciar.

[Thiago Albuquerque]

Crispim,

Esse Call é uma chamada de uma Sub e por sua vez esta faz uma simples operação: buscar dados numa tabela e atribuir as variáveis que eu citei anteriormente (Destination, Client , UserID e Password).

Caro, pode ser que até essa forma citada por você seja uma melhor forma de instanciar o objeto, mas esse não é meu caso. Estou com um código que não foi desenvolvido por mim e estou com alguns problemas, pois esse sistema é bastante complexo. Assim, não posso realizar alterações no código.

Desde já agradeço pela usa ajuda.

[Danleonhart]

Informe a linha que ocorre o erro...e o nome do erro também :rolleyes:

[Thiago Albuquerque]

Danleonhart, eu acabei de resolver o o problema.

Obrigado!