SQL ET QUE LA DISCUTION COMENCE!!!!!!!!!!

Salut tout le monde, j’espère bien résoudre mon problèm… euh !! j’en suis sure… ^^

CECI EST UN CODE D’UNE APPLICATION SOUS .NET … DANS CETTE APPLICATION J’AI BESOIN D’UNE BASE DE DONNEES DONT JE VAI ENREGISTRER MODIFER ET SUPPRIMER DES ENREGISTREMENT…

Le but c’est d’acéder a un enregistrement et que le résultat soit afficher sur un label ou un textbox … Mon problèm c’est que j’arricve pas a le faire … voila le code que j’ai developper … existe-t-il des erreurs ????






Imports System
Imports System.Data
Imports System.Data.OleDb

Partial Public Class _Default

Inherits System.Web.UI.Page
Private ObjetConnection As OleDbConnection
Private ObjetCommand As OleDbCommand
Private ObjetDataAdapter As OleDbDataAdapter
Private ObjetDataSet As New DataSet()
Private strSql As String
Private ObjetDataTable As DataTable
Private ObjetDataRow As DataRow
Private RowNumber As Integer
Private strConn As String
Private ObjetCommandBuilder As OleDbCommandBuilder


Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) HandlesButton1.Click


'Initialisation de la chaîne de paramètres pour la connexion
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= c:\nom.mdb;"
'Initialisation de la chaîne contenant l'instruction SQL
strSql = "SELECT USER.* FROM USER"
'Instanciation d'un Objet Connexion
ObjetConnection = New OleDbConnection()
'Donner à la propriété ConnectionString les paramètres de connexion
ObjetConnection.ConnectionString = strConn
'Ouvrir la connexion
ObjetConnection.Open()
'Instancier un objet Commande
ObjetCommand = New OleDbCommand(strSql)
'Instancier un objet Adapter
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
'initialiser l'objet Command
ObjetCommand.Connection() = ObjetConnection
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
ObjetDataAdapter.Fill(ObjetDataSet, "USER")
'Mettre dans un Objet DataTable une table du DataSet
ObjetDataTable = ObjetDataSet.Tables("USER") ' !!!!!! ERREUR *********************<=====
RowNumber = 0
Me.TextBox1.Text = ObjetDataTable.Rows(RowNumber).Item("USER_NAME").ToString

End Sub
End Class