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 con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\EmplTable.accdb;") Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM EmpData", con) con.Open() Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim myDataSet As DataSet = New DataSet() myDA.Fill(myDataSet, "EmpData") DataGridView1.DataSource = myDataSet.Tables("EmpData").DefaultView con.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)