Intercettare rst fields

Buona sera
come si può fare intercettare debug print di questa funzione per creare delle dim as string
grazie in anticipo

' ADODB - READ RECORDS

Public Sub myAdoDbRead()
' set new recordset adodb
Dim rst As New ADODB.Recordset
' open table, connection addb, all records , all fields
rst.Open "Select * From Tbl_Anagrafica;", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
' loop read recordset
Do While Not rst.EOF
    ' read fields
    Debug.Print rst.Fields("RagSoc").Value
    Debug.Print rst.Fields("Prov").Value
    Debug.Print rst.Fields("PIva").Value
    ' move next record
    rst.MoveNext
Loop
' close recordset
rst.Close
Set rst = Nothing
End Sub

Usa i tag Code per il codice

E poi spiegati meglio perché "intercettare debug print" e "creare delle dim as string" sono frasi senza senso.