Private Sub CommandButton1_Click()
Set baglanti = CreateObject("ADODB.Connection")
baglanti.Provider = "Microsoft.Jet.OLEDB.4.0"
baglanti.Open "S:\Veritabanı1.accdb"
strSQL = "select * from veri"
Set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL, baglanti, 3, 3
rs.AddNew
-----------------
arkadaslar bu kod ile accese deki veritabanıma bağlanmaya çalısıyorum veritabanı bulunamadı hatası alıyorum yardımcı olurmusunuz

söylemeyi unutmusum ofice 2007 kullanıyorum

Bağlanmaya çalıştığınız veritabanının yeri doğru mu?
kod içerisinde S:\Veritabanı1.accdb olarak belirtiyor doğru mu?

farklı yerlere kaydederek denedim fakat olmadı ne yapabilirim

Veritabanı1.accdb adlı dosyanı C: sürücüsüne kopyala, yukarıdaki
baglanti.Open "S:\Veritabanı1.accdb"
satırınıda ;
baglanti.Open "C:\Veritabanı1.accdb" olarak değiştir.

bunuda yapmıştım ama olmamiştı bi sn tekrar deniyim ozamn