VB , BD Access

Imports System.Data
Imports System.Data.OleDb
Public Class Main
    Dim strPath As String
    Dim Constr As String = ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source =" & strPath & "\Sere.mdb" & ";")
    Dim Conn As New OleDbConnection(Constr)


    Private Sub main_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Dataset1 As New DataSet
        Dim SQLstr As String = "SELECT  * FROM EC"

        Conn.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
        DataAdapter1.Fill(Dataset1, "EC")
        Conn.Close()
        Q1.DataBindings.Add("Text", Dataset1, "EC.Question")
        Q2.DataBindings.Add("Text", Dataset1, "EC.Question") 'Comment sélectioné a partir Ligne 2 ! :S
        Q3.DataBindings.Add("Text", Dataset1, "EC.Question") 'Comment sélectioné a partir Ligne 3 ! :S

End Sub
End Class