Ayuda con Dll modulo de clase y label VB6

[S I D I U S]

Hola!

tengo un problema con una Dll que estoy haciendo para mi aplicacion, el problema esta en que no puedo establecer la propiedad Caption de un Label mediante datos en un array que le paso a una Clase desde mi aplicacion

no entiendo el porque no puedo establecer la propiedad caption!

este es mi codigo de mi aplicacion donde cargo la Dll:

Código:

 
'creo y meto los datos a un array llamdo datos
Dim datos As Variant


Private Sub datos_recibo(tabla As String)

Dim pRs As ADODB.Recordset

Set pRs = New ADODB.Recordset
    SQL = "SELECT nombre, apellidos, direccion, ciudad, estado, cp, rfc FROM fisica WHERE nombre =" & selectNom
    'MsgBox (SQL)
    Set pRs = gCnn.Execute(SQL)
    
        nombre = pRs.Fields("nombre")
        apellidos = pRs.Fields("apellidos")
        direccion = pRs.Fields("direccion")
        ciudad = pRs.Fields("ciudad")
        estado = pRs.Fields("estado")
        cp = pRs.Fields("cp")
        RFC = pRs.Fields("rfc")
    pRs.Close
    
    datos = Array(nombre, apellidos, direccion, direccion, estado, cp, RFC)
    'MsgBox (datos(0) & " " & datos(1))
End Sub

'cargo el formulario y envio el array a la dll

Private Sub btnCalImp_Click()
    Datos_Campos (datos)
End Sub

este es mi codigo en la Dll:

Clase Campos:

Código:

Option Explicit
Public nombre As String
Public Sub Datos_Campos(datos As Variant)
    nombre = datos(0)
    frmRecibo.dat_nom (nombre)
End Sub

codigo del formulario donde tengo los labels:

Código:

Public Sub dat_nom(nombre As String)
    MsgBox (nombre) 'esto si funciona
    Label1.Caption = "hola " & nombre 'esto no funciona
    Text1.Text = "hola" 'esto tampoco funciona
End Sub

agradesco mucho su ayuda, llevo toda la tarde noche con esto!!!




Saludos

[GeoAvila]

ya probaste cambiando el
Public nombre As String

por

Dim nombre as String

nos vemos.

[S I D I U S]

Nop no funciona, ya hice un Refresh tambien y nada!

[GeoAvila]

lo que deberías hacer es dupurar linea por linea para ver donde se esta perdiendo la secuencia..

con F8 linea por linea

nos vemos..