منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Imports System.Data.OleDb

Public Class Form1
    Public Conn As New OleDbConnection("Provider=microsoft.Ace.oledb.12.0;" & "Data Source=" & Application.StartupPath & "\Registration.accdb; Password=vision0307")
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim da As New OleDbDataAdapter
        Dim ds As New DataSet
        Dim dt As New DataTable

        da = New OleDbDataAdapter("Select * From Reg", Conn)

        da.Fill(ds, "reg")
        da.Fill(dt)

        DataGridView1.DataSource = dt