[المبرمج البسيط]

PHP كود :

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim constr As String = "provider=microsoft.jet.oledb.4.0;" & "data sours = " & Application.StartupPath & "/mydata.mdb"
    Dim conn As New OleDbConnection(constr)
    Dim dataset1 As New DataSet
    Dim sqlstr As String = "select * from table1"

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

        conn.Open()
        Dim dataadapter1 As New OleDbDataAdapter(sqlstr, conn)
        dataadapter1.Fill(dataset1, "table1")
        conn.Close()
    End Sub
End Class