Exception en vb.net

lors de débogage de mon application j'eu cette exception


"Une exception non gérée du type 'System.ArgumentException' s'est produite dans Microsoft.VisualBasic.dll

Informations supplémentaires : L'argument 'Prompt' ne peut pas être converti en type 'String'."


après le code suivant

 
Private Sub Btnsauv_Click(sender As Object, e As EventArgs) Handles Btnsauv.Click
        If txtnom.Text = String.Empty Or txtpays.Text = String.Empty Or txtville.Text = String.Empty Or txttel.Text = String.Empty Or txtdesc.Text = String.Empty Or txtemail.Text = String.Empty Or txtclasse.Text = String.Empty Then
            MessageBox.Show("Il faut remplir tous les champs SVP !!! ")
        Else
            ouvrircnx()
            Dim rsql As String = "Insert into hotel (nomhotel,pays,ville,classe,tel,desc,email) values ('" & txtnom.Text & "','" & txtpays.Text & "','" & txtville.Text & "','" & txtclasse.Text & "','" & txttel.Text & "','" & txtdesc.Text & "','" & txtemail.Text & "')"
            MsgBox(rsql)
            Dim cmd As New OleDbCommand(rsql, cnx)
            Try
                cmd.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex)
            End Try
            fermercnx()
        End If
    End Sub

aidez-moi svp

EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.