[VB.NET] Errore durante la lettura dei dati da Access per "cast non valido"

[dado86ssj]

Ciao, sto facendo un programma che si connetta ad un db di access e permetta di leggere e scrivere dati.
La connessione va a buon fine, il problema è che quando vado ad inserire il valore che prelevo dal database all'interno di una label ricevo il seguente errore sull'ultima riga di codice: Cast non valido dal tipo 'Field' al tipo 'String'.

Il codice che ho utilizzato è questo:

Dim conn, rec, dbp, qsql, prova
dbp = "C:\prova.mdb"
conn = CreateObject("ADODB.Connection")
conn.Open = "driver={Microsoft Access Driver (*.mdb)};dbq=" & dbp

rec = CreateObject("ADODB.RecordSet")
qsql = "SELECT * FROM Tabella1 WHERE id = 1"
rec = conn.execute(qsql)
prova = rec("testo")
Label2.Text = prova