Проблема с ADO.

[.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 пустой. Пожалуйста подскажите в чем я ошибся?

[Konst_One]

Fill() надо вызвать до присвоения гриду источника данных

[.link]

Fill() надо вызвать до присвоения гриду источника данных

Ответ не верный.
Есть еще вар-ты?

[Konst_One]

тогда перевидите эту темы в раздел .NET

[Sebas]

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

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
        Catch ex As Exception
            MsgBox(ex.GetType.FullName & " " & ex.Message)
        End Try
    End Sub
End Class

[.link]

Sebas
Опять мимо. Не работает.

[Sebas]

Dim DataSet As New DataTABLE

[baha76]

grid.DataSource() = DataSet.Table(0)

В разделе ADO.NET я уже ответил.