[اسلام الكبابى]

كود :

[align=left]Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=students.accdb"
    Dim con As New OleDb.OleDbConnection(Str)
    Dim dt As DataTable
    Dim sql As String = "select * from student"
    Dim da As OleDb.OleDbDataAdapter
    Dim cmd As OleDb.OleDbCommandBuilder


    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        dt = New DataTable
        da = New OleDb.OleDbDataAdapter(sql, con)
        cmd = New OleDb.OleDbCommandBuilder(da)
        dg.DataSource = Nothing
        dg.Rows.Clear()
        da.Fill(dt)
        dg.DataSource = dt
[/align]
[align=left]End Sub[/align]
[align=left]End Class[/align]