SQL sorguda hata alıyorum

[vivident]

Merhaba

Excel kitabı açılınca Access bağlanarak "v.03_001" versiyonunun olup olmadığını kontrol edecek. Eğer bu kod yok ise, veya kod farklı ise msgbox "versiyon eşit değil" yazacak.

Lakin sorguda, veya başka bir yerde (select kısmında hata veriyor) problem yaşıyorum. Alttaki sorguları denedim. Olmuyor. Dosyam ektedir. Kodlar this workbook içinde

Set rs = baglan.Execute("SELECT FROM Versiyon WHERE Versiyon.Izlenebilirlik LIKE=" & AIzlenebilirlik)
Set rs = baglan.Execute("SELECT FROM Versiyon WHERE Izlenebilirlik=" & AIzlenebilirlik)
Set rs = baglan.Execute("SELECT FROM Versiyon WHERE Izlenebilirlik")

Private baglan As Object, rs As Object
Sub baglanti()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\TakvimList.mdb"
End Sub

Private Sub Workbook_Open()
AIzlenebilirlik = "'v.03_001'"
Call baglanti

'Set rs = baglan.Execute("SELECT FROM Versiyon WHERE Versiyon.Izlenebilirlik LIKE=" & AIzlenebilirlik)
'Set rs = baglan.Execute("SELECT FROM Versiyon WHERE Izlenebilirlik=" & AIzlenebilirlik)
Set rs = baglan.Execute("SELECT FROM Versiyon WHERE Izlenebilirlik")

If rs <> AIzlenebilirlik Then
MsgBox "versiyon eşit değil"
End If

Set baglan = Nothing: Set rs = Nothing
End Sub

 

[Mehmet Şahin]

Merhaba,
ilgili prosedürü aşağıdaki şekilde uygular mısınız?

Private Sub Workbook_Open()
AIzlenebilirlik = "v.03_001"
Call baglanti
Set rs = baglan.Execute("SELECT Izlenebilirlik FROM Versiyon")
If rs.Fields(0) <> AIzlenebilirlik Then
MsgBox "versiyon eşit değil"
End If
Set baglan = Nothing: Set rs = Nothing
End Sub

 

[vivident]

Sayın Mehmet Şahin çok teşekkür ederim, iyi çalışmalar