[RESOLVED] Record count =-1 what’s problem

[shakti5385]

Hi all
Using coding I m saving a folder image into a table using field I (text)
It is saving successfully but when I m checking again it showing record count-1
What is the reason behind it
……………
help!!!!!!!!!!


code are

FileName1 = App.Path & "\QuesImages\Chemistry"
If text1.Text <> "" Then
    Set f = Fs.GetFolder(FileName1)
    Set fc = f.Files
    For Each f1 In fc
    S1 = S1 & f1.Name
    S = "SELECT i FROM cheimage where i='" & Trim(S1) & "'"
    Set R1 = Get_Special_Record_Set(S)
    If R1.RecordCount = 0 Then
'showing record count=-1 here what is the reason HELP ME
        MsgBox "Image " + S1 + " Not Found In Chemistry Folder ThereFore Restore Not Possible", vbInformation
        S1 = ""
        Exit Sub
    End If
    S1 = ""
    Next
    'Restoring The Folder
    objFS.CopyFolder FileName1, text1.Text & "\QuesImages\Chemistry", True
End If