bonjour lorsque je lance mon programme en complie pas à pas voici l'erreur :
Une exception de première chance de type 'System.Data.OleDb.OleDbException' s'est produite dans System.Data.dll
Elle se produit lorsque je rentre dans ma form qui contient un datagrid.

Je ne sais pas d'où ca peux provenir. Voici des bouts de codes si ca peux aider.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
 
 
    Dim strConnect As String
    Public acconn As New OleDb.OleDbConnection
    Public acsdr As OleDbDataReader
    Public str As String
 
    Public SIGNAT As Integer
 
    Public cnn As New OleDb.OleDbConnection
    Public cdr As OleDbDataReader
 
    Public strawr As String
    Public textt As String
    Dim strConnectt As String
    Public acconnn As New OleDb.OleDbConnection
    Public acsdrr As OleDbDataReader
    Public strr As String
 
    Sub connect()
 
        acconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
        acconn.Open()
 
        acconnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
        acconnn.Open()
 
        cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
 
 
 
 
    End Sub
 
 
 
Public Class Menup
    '  Dim da As New OleDb.OleDbDataAdapter
    ' Dim cb As New OleDb.OleDbCommandBuilder(Da)
 
    Private Sub FichierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FichierToolStripMenuItem.Click
        Form1.Show()
        Form4.Close()
        Me.Close()
    End Sub
 
    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        Form4.Close()
        End
    End Sub
 
    Private Sub bt_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
        Form4.Show()
        Me.Close()
    End Sub
 
    Private Sub bt_search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_search.Click
        Form7.Show()
        Me.Close()
    End Sub
 
    Private Sub Menup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'PassDataSet41.Table5'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Table5TableAdapter3.Fill(Me.PassDataSet41.Table5)
        'TODO: cette ligne de code charge les données dans la table 'PassDataSet3.Table5'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Table5TableAdapter2.Fill(Me.PassDataSet3.Table5)
        'TODO: cette ligne de code charge les données dans la table 'PassDataSet1.Table5'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Table5TableAdapter1.Fill(Me.PassDataSet1.Table5)
        'TODO: cette ligne de code charge les données dans la table 'PassDataSet2.Table5'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Table5TableAdapter.Fill(Me.PassDataSet2.Table5)
 
 
 
        Module1.connect()
 
        Module1.connect()
 
        Form4.fillcombo()
 
        Form4.fillcombox()
 
 
    End Sub
 
    Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub FillByToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Try
 
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
    Private Sub Table5BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
 
        Me.Table5BindingSource.EndEdit()
 
        Me.TableAdapterManager.UpdateAll(Me.PassDataSet2)
 
    End Sub
 
    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chercher.Click
 
        If rb_num.Checked = True Then
            Table5DataGridView.DataSource = Me.PassDataSet3.Table5.Select("[num] like '%" & TextBox1.Text & "%'")
        End If
        If Rb_describe.Checked = True Then
            Table5DataGridView.DataSource = Me.PassDataSet3.Table5.Select("description like '%" & TextBox1.Text & "%'")
        End If
 
        If rb_secteur.Checked = True Then
            Table5DataGridView.DataSource = Me.PassDataSet3.Table5.Select("secteur like '%" & TextBox1.Text & "%'")
        End If
 
    End Sub
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Table5DataGridView.Refresh()
 
        Table5DataGridView.DataSource = Me.PassDataSet3.Table5
    End Sub
Mon programme en vb.net express est lié à une base de donnée nommé pass.

Alors merci de l'aide !