Access Bağlantı Hatası

[ozuberk]

Merhaba aşağıdaki kod ile Access bağlantısı yapmak istiyorum. "Public cn As ADODB.Connection" kodunda hatası alıyorum.

Option Explicit
Public yol As String
Public sgl As String
Public cn As ADODB.Connection
Public rs As ADODB.Recordset

Public Sub Baglan()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
DB.yol = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Sheets("Ayarlar").Range("A2") & "\Database1.accdb'"
End Sub

Public Sub BaglantiKes()
cn.Close
Set cn = Nothing
Set rs = Nothing
End Sub

[ozuberk]

Merhaba aşağıdaki referansları ekleyince sorun düzeldi.

Microsoft ActiveX Data Objects 2.8 Library
Microsoft ActiveX Data Objects Recordset 2.8 Library

[enkilmen]

System.Data.OleDb.OleDbException
böyle bir hata alıyorum visual basic
nasıl yardımcı olabilirsiniz?

[enkilmen]

Me.Tablo1TableAdapter.Fill(Me.VERILERGIRISDataSet.Tablo1)
bu komut satırında hata alıyorum.

[sahin]

SQL cümlenizi kontrol edin ordaki tablo adı vs yanlış olabilir

[enkilmen]

sql cümlesi derken ?
Me.Tablo1TableAdapter.Fill(Me.Your_DatabaseDataSet.Tablo1)

değişiklil yaptım, ama yine aynı hata

[sahin]

dosyalarınız atarsanız hata kaynağın abakalım

[enkilmen]

dosyam

yeni.rar

[enkilmen]

sahin bey, hiç bilmeyen birisiyim, hatalar yaparak ögreniyorum

[sahin]

projeyi açamadım hata veriyor visula studioda projeyi çalıştırp kaydedin visual studio yu kapatıp tekrar proje klasörünü paylaşın

[cansercan]

sahin hocam bakabilir misiniz dosyaya size zahmet

https://dosya.co/c5pdgchxx2je/Excel.xls ... qdyhgfm2bu