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