Dim c As New System.Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0; data source" & Application.StartupPath & "/ucus.mdb;")

        c.Open()

        Dim adap As New System.Data.OleDb.OleDbDataAdapter("select * from bilgi", c)

        Dim ds As New DataSet

        adap.Fill(ds, "bilgi")

        Dim goster As New DataView

        goster.Table = ds.Tables("bilgi")

        DataGridView1.DataSource = goster

        c.Close()

Imports System.Data.OleDb

Public Class Form1

Dim kur As String = "provider=Microsoft.jet.OLEDB.4.0;" & _

 "Data Source=" & Application.StartupPath & _

 "\ucus.mdb"

Dim baglanti As New OleDbConnection(kur)

Dim dosya As New OleDbDataAdapter

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

baglanti.Open()

 dosya = New OleDbDataAdapter("select * from bilgi, baglanti)

 dt = New DataSet

 dosya.Fill(dt, "bilgi")

 DataGridView1.DataSource = dt.Tables("bilgi")

 baglanti.Close()

End Sub



End Class