Private cn As OleDbConnection
    Private da As OleDbDataAdapter
    Private ds As DataSet
    Private courant As Integer
    Private cmdselect As OleDbCommand
    Private b1, b2 As Binding
    Private WithEvents cm As CurrencyManager
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cn = New OleDbConnection
        cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=c:\mesbases\TP2.mdb"
        cn.Open()

        cmdselect = New OleDbCommand
        cmdselect.Connection = cn
        cmdselect.CommandText = "select nof,noc,nop,titre,datesortie,nombre,cout,dvd from films order by nof"

        ds = New DataSet
        da = New OleDbDataAdapter
        da.SelectCommand = cmdselect
        da.Fill(ds, "films")

        Dim col As DataColumn = ds.Tables(0).Columns(0)
        col.AutoIncrement = True
        col.AutoIncrementSeed = -1
        col.AutoIncrementStep = -2

        Dim pk(0) As DataColumn
        pk(0) = col
        ds.Tables(0).PrimaryKey = pk
        courant = 0

        'binder les controles
        b1 = TextBox1.DataBindings.Add("text", ds, "films.titre") 'sa propriete text
        b2 = TextBox2.DataBindings.Add("text", ds, "films.cout")
        dtp.DataBindings.Add("value", ds, "films.datesortie") 'sa propriete value
        Label5.DataBindings.Add("text", ds, "films.noa")
        AddHandler b2.Format, AddressOf formatterMontant 'le signe $$$
        cm = BindingContext(ds, "films") 'creer currency manager
        Me.Text = (cm.Position + 1).ToString() + " de " + cm.Count().ToString()
        'cm.Position += 1 'pour ajouter le $$$$$$
        'cm.Position -= 1 'pour ajouter le $$$$$$
        afficher()

    End Sub