Sn. Şeyma462,

Birde Bu Şekilde Deneyiniz?

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