Este código surgiu após alguns devaneios meus com recordsets neste (http://www.techzonept.com/showthread.php?t=313819)tópico.

Coisa simples, que dá também para usar em vbscript (com as devidas adpatações).
Para esta coisa funcionar, criem um projecto no VB6, num form qualquer adicionem uma listbox com o nome List1. Precisam também de adicionar a Reference "Micrososft ActiveX Data Objects 2.8 Library" (também deve dar com versões mais antigas que a 2.8).
Segue o código:


Option Explicit

Private Sub Form_Load()
Dim baralho As New ADODB.Recordset


'criar Tabela Baralho
Set baralho.ActiveConnection = Nothing
baralho.Fields.Append "carta", adChar, 10, adFldRowID
baralho.CursorType = adOpenKeyset
baralho.LockType = adLockOptimistic
baralho.Open

'carregar tabela com cartas

Dim naipe As Integer
Dim num_carta As Integer


For naipe = 1 To 4
For num_carta = 1 To 13
baralho.AddNew
baralho.Fields("carta").Value = naipe & "-" & num_carta
baralho.Update
Next
Next


baralho.MoveFirst

'carregar listbox
Dim i As Integer
For i = 1 To 52
List1.AddItem baralho.Fields("carta")
baralho.MoveNext
Next

End Sub

cumps