اريد كود Sql لاستعراض الصور

'ضع هذا الكود في حدث Form_Load

Dim DB As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim SQLs As String

If DB.State = adStateOpen Then DB.Close

DB.CursorLocation = adUseClient

DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb"

SQLs = "select * from image"

If rs.State = adStateOpen Then rs.Close

rs.Open SQLs, DB, adOpenKeyset, adLockPessimistic

Image1.Picture= rs!image

شكرا جزيلا للاخ الفاضل