Как использовать ADO?

[.link]

Здравствуйте.
Прошу помочь примером кода или ссылкой на хороший пример.
Не смотря на наличие литературы и поисковиков никак не могу разобраться с использованием баз данных.
Дано: Есть БД ACCESS с таблицей USERS. В таблице поля ID FIRST LAST POST.
Задача: Вывести эти данные на экранную форму. Присвоить Label1.Text значение 3-й строки столбца LAST.

Код: Выделить всё

Dim conn As New OleDb.OleDbConnection()
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\base.mdb"
        conn.Open()


ЗДЕСЬ КОД

Код: Выделить всё

        conn.Close()


Спасибо.

[.link]

Господа, помогите пожалуйста!

Немного продвинулся в данном вопросе. Но все равно не получается. На форме есть элемент grid.

Код: Выделить всё


Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\base.mdb")
        Dim DataSet As New DataSet()
        grid.DataSource() = DataSet
        Try
            conn.Open()
            Dim comm As New OleDb.OleDbCommand("select * from users", conn)
            Dim ad As New OleDb.OleDbDataAdapter(comm)
            ad.Fill(DataSet)
        Catch ex As Exception
            MsgBox(ex.GetType.FullName & " " & ex.Message)
        End Try
    End Sub
End Class


Все равно grid после выполнения кода пустой!!! Пожалуйста подскажите, что неверно в коде?

[baha76]

Надо сначала заполнить датасет, потом присвоить ее таблицу к гриду, а не сам датасет. Типа так:

Код: Выделить всё

Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\base.mdb")
        Dim DataSet As New DataSet()
        Try
            conn.Open()
            Dim comm As New OleDb.OleDbCommand("select * from users", conn)
            Dim ad As New OleDb.OleDbDataAdapter(comm)
            ad.Fill(DataSet)
            grid.DataSource() = DataSet.Tables(0)
        Catch ex As Exception
            MsgBox(ex.GetType.FullName & " " & ex.Message)
        End Try
    End Sub
End Class