Ayuda con Dll modulo de clase y label VB6

ziux_neo
09 de Agosto del 2005
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:


'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:



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:



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