Problème avec requete update vb.net

Bonjour tout le monde, j'ai rencontré un problème avec la requete update en l'insérant dans une code vb.il m'afiche l"erreur suivante : Aucune valeur donnée pour un ou plusieurs des paramètres requis. et voila mon code :

Private Sub btnValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValider.Click
Dim max As Integer = 0
Dim cdIso, nFr, nAn As String
Dim cdPays As Integer
SearchMax("Pays", "CodePays", max)

If var = 1 Then
LancerRequete("insert into Pays (CodePays,CodeIso,NomFr,NomAn,Monnaie,DecGmt,IndTel,Loff) values ('" & max & "','" & txtCodeIso.Text & "','" & txtNFR.Text & "','" & txtNEN.Text & "','" & txtMonnaie.Text & "','" & txtDecGMT.Text & "','" & Val(txtIndTel.Text) & "','" & txtLnOFF.Text & "')")
lsv.Items.Clear()
changeListView(lsv, "select CodePays,NomFr from Pays order by CodePays ASC")
ElseIf var = 2 Then
Dim valnum As String
valnum = lsv.Items(lsv.SelectedIndices(0)).SubItems(0).Text
nFr = txtNFR.Text
LancerRequete("UPDATE Pays SET CodeIso='" & nFr & "' WHERE id='" & valnum & "' ")

End If

End Sub