[وافير]

السلام عليكم اخوتي انا بحاجة الى كود اظهار progresse bar متزامن اثناء اضافة البيانات الى قاعدة البيانات اكسس باستعمال فجوال بسيك 
كود الاضافة هو كالتالي 
' تحويل الملف الى Byte

            Try

        Dim FFS As FileStream = New FileStream(TextBox2.Text, FileMode.Open

                Dim FBR As BinaryReader = New BinaryReader(FFS

                Dim FileCon() As Byte = FBR.ReadBytes(FFS.Length

                FFS.Close

                FBR.Close

                ' اضافة البيانات بقاعدة البيانات

                cmd = New OleDbCommand("Insert into PP (FileName,FileExt,Attachment,loi) Values (@FileName,@FileExt,@Attachment,@loi)", con

                con.Open

                cmd.Parameters.Add(New OleDbParameter("@FileName", OleDbType.LongVarChar)).Value = TextBox1.Text

                cmd.Parameters.Add(New OleDbParameter("@FileExt", OleDbType.VarChar)).Value = Path.GetExtension(TextBox2.Text

                cmd.Parameters.Add(New OleDbParameter("@Attachment", OleDbType.VarBinary)).Value = FileCon

                cmd.Parameters.Add(New OleDbParameter("@loi", OleDbType.Integer)).Value = TextBox4.Text

                cmd.ExecuteNonQuery

                con.Close

[وافير]

من يجيب اخوتي