Dim sSQL as string = "UPDATE " & sTable & " SET Descr ='" & lblCDescr.Text & "' WHERE ID=" & nIDRecord

senti se i valori che passi non sono vuoti l'errore potrebbe stare altrove tipo nei parametri del DB

hai un campo chiave eccc. controlla perchè èè una fesseria anche a me è capitato