Bonjour

j'ai un problème pour incrémenter mon textBox et voici le code que j'ai confectionner dans ma form load

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public crs As OleDb.OleDbDataReader
    Public cmd As OleDb.OleDbCommand
    Private Sub Gestion_des_Comptes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'
'
'
'incrémenter mon textbox3
        Dim conn As OleDb.OleDbConnection
        conn = New OleDb.OleDbConnection(ChaineConnection)
        conn.Open()
        cmd.CommandText = "select max([Id Code Utilisateur]) from [Code Utilisateur]"
        crs = cmd.ExecuteReader
        crs.Read()
        Dim x1 = crs.GetString(0)
        TextBox3.Text = Val(x1) + 1
        cmd.Connection = conn
        cmd.ExecuteNonQuery()
        conn.Dispose()
        cmd.Dispose()
l'erreur générer est
La référence d'objet n'est pas définie à une instance d'un objet.
ma chaîne de connections fonctionne très bien mais je ne comprend pas ou ce situe l'erreur!!!!
Si vous pouvez m aider pour exécuter ce code je serai reconnaissant.
Merci d’avance......