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

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ss As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\xxl.accdb;Jet OLEDBatabase Password=MyDbPassword")
        Dim da As New OleDbDataAdapter(" select * form  xxxx ", ss)
        Dim dt As New DataTable()
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub
End Class

form    FROM