Imports System.Data
Imports System.Data.OleDb

Public Class Form1
Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" &
Application.StartupPath & "\maindatabase.accdb"
Public CON As New OleDbConnection(ConStr)
Public DS As New DataSet
Public SQLstr As String = "SELECT * FROM table1 "
private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Try
CON.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, CON)
DataAdapter1.Fill(DS, "tabel1")
CON.Close()
Catch ex As Exception
MsgBox(ex.message, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, " ء#$% &'
ل#)*+ ("ا
End Try
End Sub