Bonjour à tous,

Je réalise un petit soft en VB.net pour mettre à jour une BDD acces.

Il y a une partie création qui permet de créer de nouvelles marques ou types...

Voici le code qui sert à créer une nouvelle marque
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
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        TextBox1.Text = UCase$(TextBox1.Text)
 
        create_marque = TextBox1.Text
 
        Connection.Open()
        cmd.Connection = Connection
        cmd.CommandText = "Select Id from Marques where Marque='" & create_marque & "'"
        dtReader = cmd.ExecuteReader()
 
        If dtReader.HasRows = False Then
            dtReader.Close()
            cmd.CommandText = "INSERT INTO Marques (Marque) Values ('" & create_marque & "')"
            cmd.ExecuteNonQuery()
            MsgBox("La marque " & create_marque & " a bien été créée")
            cmd.CommandText = "Select Id from Marques where Marque='" & create_marque & "'"
            dtReader = cmd.ExecuteReader()
            dtReader.Read()
            create_marque_id = dtReader.Item("Id")
            dtReader.Close()
            Me.Hide()
        Else
            MsgBox("La marque " & create_marque & " existe déja")
            dtReader.Close()
            create_marque_id = 0
        End If
 
        Connection.Close()
    End Sub
La première fois que je l'excecute aucun soucis la marque est créée. Par contre lorsque je le réexécute pour créer une 2ème marque j'ai une erreur au niveau de la ligne :
L'erreur est la suivante

L'exception OleDbException n'a pas été gérée
Aucune message d'erreur disponible, code de résultat : DB_SEC_E_AUTH_FAILED(0x80040E4D).
Ce qui m'est venu à l'esprit est que la connection n'avais pas étée fermée mais j'ai vérifié et elle est bien fermée à la fin de l'éxcécution...

Quelqu'un aurait une idée?
Merci