Imports System.Data.OleDb
Imports System.Data
Public Class customer
Dim conn As New OleDbConnection
Dim sqlstr As String
Private Sub customer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\bin\Debug\Database2.accdb;persist security info = flase"
conn.Open()
sqlstr = "SELECT * FROM Tbl_Customer"
Dim da As New OleDb.OleDbDataAdapter(sqlstr, conn)
End Sub