ADOBE BAĞLANTI HATASI

[mtbi00]

Merhaba,
Yapmış olduğum dosyadaki bilgileri aktif aratmak için siteden bir kod buldum. Bu kodu ilk yaptığım programda sorunsuz çalıştırdım. Ama yeni yapacağım programda bir türlü çalıştıramadım. Kod aşağıdaki gibidir. Kodu çalıştırdığımda "Yanlış türdeki değişkenler kabul edilebilir aralık dışında veya bir başkasıyla çakışan bağımsız değişkenler kullanılıyor" diye uyarı alıyorum. Mavi satırda veriyor bu hatayı. Kodun çalışma prensibini bilmiyorum. Yardımlarınız rica olunur.

Saygılarımla.

Private Sub UserForm_Initialize()
Call Baglanti_Yap
Set Kayit = CreateObject("adodb.recordset")
S = "SELECT KOD, EBLOK, YBLOK, DAI, ADSOYAD, TCKN FROM [DATA$] ORDER BY ID"
Kayit.Open S, Baglan, 1, 2
If Kayit.RecordCount > 0 Then
If Not Kayit.EOF Then
With Me
.ListBox1.Clear
.ListBox1.ColumnCount = 6
.ListBox1.ColumnWidths = "28;28;79;79;79;79"
.ListBox1.Column = Kayit.GetRows
.ListBox1.ListIndex = 0
End With
End If
End If

Debug.Print Kayit.Filter
Kayit.Filter = ""
If Kayit.RecordCount = 0 Then Exit Sub
Sorgu = IIf(Me.tb_akod.Text = "", "KOD<>''", "KOD Like '%" & Me.tb_akod.Text & "%'")
Sorgu = Sorgu & IIf(Me.tb_aeblok.Text = "", "", " And EBLOK Like '%" & Me.tb_aeblok.Text & "%'")
Sorgu = Sorgu & IIf(Me.tb_ayblok.Text = "", "", " And YBLOK Like '%" & Me.tb_ayblok.Text & "%'")
Sorgu = Sorgu & IIf(Me.tb_adaire.Text = "", "", " And DAI Like '%" & Me.tb_adaire.Text & "%'")
Sorgu = Sorgu & IIf(Me.tb_aname.Text = "", "", " And ADSOYAD Like '%" & Me.tb_aname.Text & "%'")
Sorgu = Sorgu & IIf(Me.tb_atckn.Text = "", "", " And TCKN Like '%" & Me.tb_atckn.Text & "%'")

Kayit.Filter = Sorgu

If Not Kayit.EOF Then
With Me
.ListBox1.Clear
.ListBox1.ColumnCount = 6
.ListBox1.ColumnWidths = "28;28;79;79;79;79"
.ListBox1.Column = Kayit.GetRows
.ListBox1.ListIndex = 0
End With
Else
Me.ListBox1.Clear
End If
TextBox3.SetFocus
End Sub