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