Recordset utan databs?

Hej alla!

Jag får inte ordning på mitt RecordSet... har försökt följa http://www.webeye.nu/default2.asp?que=asp/default.asp&exec=asp/artiklar/asp_16.asp men får det inte att fungera :(

Det jag vill göra är att hämta filnamnen på alla filer i en katalog och sen skriva ut dem sorterat med hjälp av RecordSet...

Vad är det som jag gör fel?

Set objRs = Server.CreateObject("Adodb.Recordset")
objRs.CursorLocation = 3

objRs.Fields.Append "Protokoll", adVarChar, 50
objRs.Open

For Each objItem In objFolder.Files
	strFileName = Left(objItem.Name,10)
	strFileName = Replace(strFileName,"_","-")
	
	objRs.AddNew
	objRs("Protokoll") = strFileName
	objRs.Update
Next

objRs.Sort = "Protokoll Asc"

While Not objRs.EOF
	'----- Skriver ut posterna
	objRs.MoveNext
Wend