Probier mal statt 
Function creaters(sql)
        Set creaters = CreateObject("adodb.recordset")
        creaters.cursortype = 3
        creaters.cursorlocation = 3
        creaters.locktype = 3
        creaters.open sql, dbc
End Function

Klasse:
Sub creatingCreaters(sql as String, creaters As Variant)
        Set creaters = CreateObject("adodb.recordset")
        creaters.cursortype = 3
        creaters.cursorlocation = 3
        creaters.locktype = 3
        creaters.open sql, dbc
End Sub

VBScript:
Dim myRS
creatingCreater("Select * FROM Irgendwas,myRS)

in der �bergebenen Variable findest du dann den Recordset

Andreas Roth
--------------------------------------
[EMAIL PROTECTED]           *jetzt mit Chat*
http://www.EuphoriasChild.DarkTech.org
-------------------------------------- 

> -----Urspr�ngliche Nachricht-----
> Von: Verweyen, Dirk [mailto:[EMAIL PROTECTED]]
> Gesendet: Dienstag, 27. November 2001 08:54
> An: AspGerman Kaffeehaus
> Betreff: [aspdecoffeehouse] VB-Komponente
> 
> 
> Hallo!
> 
> Ich habe mir ne Komponente in VB geschrieben
> und das klappt eingentlich super. Nur ein
> Problemchen. Ich will aus der Komponente
> ein Recordset zur�ck geben und das scheint
> irgendwie nicht zu klappen.
> 
> Wie muss ich den die Methode deklarieren damit
> das klappen k�nnte?
> 
> Gruss, Dirk
> 
> PS: Hier zwei von den Methoden wo ich es versuche:
> 
> Function creaters(sql)
>         Set creaters = CreateObject("adodb.recordset")
>         creaters.cursortype = 3
>         creaters.cursorlocation = 3
>         creaters.locktype = 3
>         creaters.open sql, dbc
> End Function
> 
> 
> Function selectanzeige(anzeigennr)
> 
>         Dim sqlanzeigennr
>         sqlanzeigennr = "select * from b_anzeigen where 
> [anzeigennr] = " &
> anzeigennr
>         Set selectanzeige = CreateObject("adodb.recordset")
>         selectanzeige.cursortype = 3
>         selectanzeige.cursorlocation = 3
>     selectanzeige.locktype = 3
>         selectanzeige.open sqlanzeigennr, dbc
> End Function
> 
> | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> | 
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp

| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp

Antwort per Email an