alguien sabe crear dll en vb6??

[vito_gris]

Lo que pasa es que scribi el codigo a la rapida pero mi problemas no es eso
ya que si ejecuto ese codigo a traves de un boton de formulario funciona bien

Este es un ejemplo de la forma en que trabajo los recorset a travez de la dll

Public Function consulta_cargos(texto As String) As ADODB.Recordset
Dim RN As ADODB.Recordset
Dim sSQL As String
conecta_access 'funcion que se conecta a la base de datos
Set RN = New Recordset
sSQL = "SELECT * FROM cargos_tbl where descripcion like '%" + texto + "%'"
RN.Open sSQL, oConn.ConnectionString, 3, 1
Set valida_cargos = RN
Set RN = Nothing
Set oConn = Nothing
End Function

y asi lo llamo desde asp

Set MiObjeto = Server.CreateObject("Gest_capa.cargos")
Set RS = MiObjeto.consulta_cargos(cstr(var))


Pero no se como declarar la funcion para que me funcione al trabajar con excel