Option Explicit On Imports System.Data.OleDb

Private Sub CmdFill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdFill.Click Try DGrid.DataSource = ReturnData().Tables(0) Catch ex As OleDbException MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Function ReturnData() As DataSet Try Dim OleCon As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB") OleCon.Open() Dim OleCom As New System.Data.OleDb.OleDbCommand("SELECT * FROM Products", OleCon) OleCom.CommandType = CommandType.Text Dim OleAdap As New System.Data.OleDb.OleDbDataAdapter(OleCom) Dim OleDSet As New DataSet() OleAdap.Fill(OleDSet) Return OleDSet Catch ex As Exception Throw ex End Try End Function