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