Salut
j'essaie de me connecter à une base de données en VB net,
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
Imports System
Imports System.Data.OleDb
Imports System.Data
Imports Microsoft.VisualBasic
 
Public Class ouvrirbaseeleves
    Inherits System.Windows.Forms.Form
 
    Private Sub ouvrirbaseeleves_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & "E:\Elèves.accdb")
        Dim MyCommand As OleDbCommand = MyConnexion.CreateCommand()
        MyCommand.CommandText = "Select * From 1TSIG"
        MyConnexion.Open()
        Dim myReader As OleDb.OleDbDataReader = MyCommand.ExecuteReader()
        Do While myReader.Read()
            ListEleves.Items.Add(myReader.GetString(0))
        Loop
        myReader.Close()
        MyConnexion.Close()
 
        'TODO : cette ligne de code charge les données dans la table 'ElèvesDataSet.Absent'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.AbsentTableAdapter.Fill(Me.ElèvesDataSet.Absent)
        'TODO : cette ligne de code charge les données dans la table 'ElèvesDataSet._1TSIG'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me._1TSIGTableAdapter.Fill(Me.ElèvesDataSet._1TSIG)
 
    End Sub
seulement lorsque j'ouvre l'application ce message d'erreur apparaît à cette ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 ListEleves.Items.Add(myReader.GetString(0))


Un peu d'aide svp