boonjour tout le monde

voici mon code
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
 
Dim Con As New SqlConnection("server=.\sqlexpress;database=BDD;integrated security=true")
 
 
SqlStr = "INSERT INTO caisse(dateC, entree,nb_cl)"
        SqlStr = SqlStr & "VALUES"
        SqlStr = SqlStr & "('" & 331 & "', '" & 332 & "', '" & 333 & "')"
        Cmd = New SqlCommand(SqlStr, Con)
        Con.Open()
        'If Not Char.IsDigit(e.KeyChar) Then
        'e.Handled = True
        ' End If
        Cmd.ExecuteReader()
 
 
        Con.Close()
mais il me signale toujour une erreur dans
con.open()

que ma base de donnée est toujour fermée

où est le problème