Database -Visualizzare In Una Stringa Un Intero Recordset ADO-GETSTRING

ADO # Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=Utenze;uid=;pwd=;"
Dim Rs As New ADODB.Recordset
Set Rs = New Recordset
Rs.Open "Select * from Stabili", db, adOpenStatic, adLockOptimistic
Dim strFormat As String
strFormat = Rs.GetString