salut a tous

j'ai un souci avec un code tiré du tutoriel de Philippe Lasserre, tutoriel que j'ai téléchargé sur developpez.com. Ce code concerne la modification d'une base de données par un dataset. j'ai copié le code proposé dans le tutoriel, mais dans mon IDE (Visual basic 2008), j'ai l'erreur "déclaration attendue", que je ne comprend pas, vu que les variables ont préalablement été définies. Voila le code. Merci d'avance pour votre attention


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
Imports System.Data
Imports System.Data.OleDb
 
 
Module Module2
 
 
    ' Déclaration Objet Connexion
    Private objetConnection As OleDbConnection
 
    ' Déclaration Objet Command
 
    Private objetCommand As OleDbCommand
 
    ' Déclaration Objet dataadapter
 
    Private objetDataAdapter As OleDbDataAdapter
 
    ' Déclaration Objet dataset
 
    Private objetDataSet As New DataSet
 
    'String contenant la 'Requête SQL'
 
    Private strsql As String
 
    ' Déclaration Objet DataTable
 
    Private objetDataTable As DataTable
 
    ' Déclaration Objet DataRow (ligne)
 
    Private objetDataRow As DataRow
 
    'Numéro de la ligne en cours
    Private RowNumber As Integer 'Numéro de l'enregistrement courant
 
    'Paramètres de connexion à la DB
    Private strConn As String
 
    'Pour recompiler les données modifiées avant de les remettre dans le
    '"DataAdapter"
 
    Private objetCommandBuilder As OleDbCommandBuilder
 
    'Initialisation de la chaîne de paramètres pour la connexion
     strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" &amp _
"Data Source= C:\Users\David\Documents\Visual Studio 2008\Projects\Essai1.Nom.mdb;"
 
 
    'Initialisation de la chaîne contenant l'instruction SQL
 
    strsql="SELECT FICHEPATIENT.* FROM FICHEPATIENT"
 
    'Instanciation d'un Objet Connexion
     ObjetConnection = New OleDbConnection()
 
 
 
 
End Module