小天使儿歌舞蹈视频:VB类型不匹配问题

Image1((s Mod 6) - 1).Picture = LoadPicture(rs.Fields(1).Value)

s是Long型变量
rs.Fields(1).Value是文件地址〕
而VB出现错误13'类型不匹配。
请问什么原因

完整代码如下：
Private Sub Command3_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim StrTemp As String

For q = 0 To 5
Image1(q).Picture = LoadPicture(App.Path & "\pic\none.jpg")
Next q

If Dir(App.Path + "\Mydata.mdb") <> "" Then
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\mydata.mdb"
End If

cnn.Open
Set rs.ActiveConnection = cnn
StrTemp = "SELECT * FROM photoshop"
rs.CursorType = adOpenStatic
rs.Open StrTemp
strend = rs.RecordCount
ab = s
rs.Move (ab)
ac = s Mod 6
Do While (s <= rs.RecordCount) And (s <= ab + 6)
Image1((s Mod 6) - 1).Picture = LoadPicture(rs.Fields(1).Value)
Label((s Mod 6) - 1).Caption = rs.Fields(3).Value
rs.MoveNext
s = s + 1
Loop
End Sub