access'den veri alma hatası

[gkhnaktas]

access veritabanından excel e bilgi aktarmaya çalışıyorum fakat nerede hata olduğunu bulamadım. dosyayı ekledim

yardımlarınız için teşekkürler

Dim conn As New ADODB.Connection
Private Sub CommandButton1_Click()
Dim yol As String
Dim rs As New ADODB.Recordset
Dim val As String
yol = ThisWorkbook.Path
conn.Open "Provider=microsoft.jet.oledb.4.0;Data source=" & yol & "\deneme.mdb;"
val = Range("c5").Value
Set rs = conn.Execute("SELECT * FROM eaf WHERE no = '" & val & "'")
    If rs.RecordCount > 0 Then
        Range("a9:e9").ClearContents

            Cells(9, "a") = rs.AbsolutePosition
            Cells(9, "b") = rs("no").Value
            Cells(9, "c") = rs("bb").Value
            Cells(9, "d") = rs("cc").Value
            Cells(9, "e") = rs("dd").Value

'Else
'   goto son
'Son:
    'MsgBox "Bağlantı Hatası", vbInformation, "Bilgi"

End If

Set conn = Nothing: Set rs = Nothing:

End Sub