Ho inserito la funzione per l'apostrofo come qui sotto riportato, ma non ho risolto nulla, ho lanciato la stringa sql risultante con un msgbox e mi sembra perfetta.
Purtroppo non so usare i parametri, e per ora ho urgenza di finire questo progetto, poi sicuramente li studierò perchè li usavo con VB6 e erano utilisssimi. Ma secondo voi l'errore potrebbe essere nella dichiarazione:
Dim nx As String = CType(dl.Rows(x).FindControl("Note"), TextBox).Text
Dim tx As String = CType(dl.Rows(x).FindControl("Giorni"), TextBox).Text, c As Integer = 0
Dim nx As String = CType(dl.Rows(x).FindControl("Note"), TextBox).Text
sql = "INSERT INTO IndennitàCOL " & _
"(IDNominativo,IDGrado,IDGruppo,IDMese,IDAnno,Giorni," & _
"Note,DataInvioLOCAL,Autorizza) " & _
"VALUES (" & .Item("IDAnagrafica") & "," & _
"" & .Item("IDGrado") & "," & _
"" & .Item("IDGruppo") & "," & _
"" & IDMese & "," & _
"" & Anno & "," & _
"" & tx & ",'" & _
"" & fApici(nx) & "','" & _
"" & "111120082338" & "'," & _
"" & False & ")"
Function fApici(ByVal stringa)
fApici = replace(stringa, "'", "''")
End Function