Btukfyl

This is the code that I use to upload file into database using VBA, but this loop can only run once. During the second loop it will give error, the error is

Operation is not allowed in this context

Can anybody suggest me what to do?
The error is in the line adoStream.Type = adTypeBinary

Dim stCon As String 'SQL Connection string

Dim stProcName As String 'Stored Procedure name



Dim strCmd As String



Dim adoStream               As Object

Dim adocmd                  As Object

Dim strFilePath             As String

Dim adoCon                  As Object



Set adoCon = CreateObject("ADODB.Connection")

Set adoStream = CreateObject("ADODB.Stream")

Set adocmd = CreateObject("ADODB.Command")



adoCon.CursorLocation = adUseClient

adoCon.Open "Provider=SQLOLEDB; " & _

            "Data Source=#########; " & _

            "Initial Catalog=#######;" & _

            "User ID=#######; Password=########;"



For Each fl In fld.Files    

    If fl.name Like Mask Then

        strInput = fl.name

        strFilePath = fld.path & "" & fl.name



        MsgBox (strFilePath)



        adoStream.Type = adTypeBinary

        adoStream.Open

        adoStream.LoadFromFile strFilePath 'It fails if file is open



        With adocmd 

            .CommandText = "INSERT INTO dbo.coc_upload(Data) " & _

                           "VALUES (?)"

            .CommandType = adCmdText

            '---adding parameters

            .Parameters.Append .CreateParameter("@Data", adVarBinary, adParamInput, adoStream.Size, adoStream.Read)

            '---

        End With



        adocmd.ActiveConnection = adoCon

        adocmd.Execute

        adoCon.Close



        MsgBox ("Done")    

    End If      

Next