come non detto ho risolto:
codice:
For Each c In txtrisposte.Controls
    Dim txt As TextBox = CType(c, TextBox)
    risultato_query = ObjDatabase.ExecuteNonQuery("INSERT INTO Risposte (Sondaggio, Risposta) VALUES ('" & id_sondaggio & "', '" & ObjDatabase.Controlla_Stringa(txt.Text) & "')")
Next