[تنبيه - عنوان غير مناسب : ]التعديل في كودي

السلام عليكم ورحمة الله وبركاته

انا استخدم هذا الكود للتحديث بمعنى احدث السجل الموجود عندي

con = New OleDbConnection("Provider=MSDAORA.1;Password=dbateam;User ID=admin;Data Source=sbgmega;Persist Security Info=True")

        con.Open()


        Dim str As String = FileUpload1.PostedFile.FileName



        FileUpload1.PostedFile.SaveAs(Server.MapPath("~\t_attach\") & str)
        Dim cm11 As New OleDbCommand("update emp_trans set attach='t_attach\" & str & "'Where sno=" & sno.Text, con)


        cm11.ExecuteNonQuery()



        Dim cmd As New OleDbCommand("update emp_trans set emp_no=" & emp_no.Text & "where sno=" & sno.Text, con)
        Dim cmd2 As New OleDbCommand("update emp_trans set name='" & emp_name.Text & "'where sno=" & sno.Text, con)
        Dim cmd3 As New OleDbCommand("update emp_trans set JOB_ID='" & job_id.Text & "'where sno=" & sno.Text, con)
        Dim cmd4 As New OleDbCommand("update emp_trans set NAT_ID ='" & nat.Text & "'where sno=" & sno.Text, con)
        Dim cmd5 As New OleDbCommand("update emp_trans set NAT_ID ='" & nat.Text & "'where sno=" & sno.Text, con)
        Dim cmd6 As New OleDbCommand("update emp_trans set proj_from ='" & from_proj.Text & "'where sno=" & sno.Text, con)
        Dim cmd7 As New OleDbCommand("update emp_trans set proj_to ='" & to_proj.Text & "'where sno=" & sno.Text, con)
        Dim cmd8 As New OleDbCommand("update emp_trans set trans_date ='" & trans_date.Text & "'where sno=" & sno.Text, con)
        Dim cmd9 As New OleDbCommand("update emp_trans set action ='" & action.Text & "'where sno=" & sno.Text, con)

        cmd.ExecuteNonQuery()
        cmd2.ExecuteNonQuery()
        cmd3.ExecuteNonQuery()
        cmd4.ExecuteNonQuery()
        cmd5.ExecuteNonQuery()
        cmd6.ExecuteNonQuery()
        cmd7.ExecuteNonQuery()
        cmd8.ExecuteNonQuery()
        cmd9.ExecuteNonQuery()

        con.Close()




        Dim message As String = "تم التحديث بنجاح"

        Dim sb As New System.Text.StringBuilder()

        sb.Append("<script type = 'text/javascript'>")

        sb.Append("window.onload=function(){")

        sb.Append("alert('")

        sb.Append(message)

        sb.Append("')};")

        sb.Append("</script>")

        ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb.ToString())

المشكلة في هذا الكود انا عندي اتاتش اضعه واحدث تمام بس اذا لم اضع الاتاتش يأتي خطأ

ارجووكم التعديل في الكود بحيث اذا لم اضع اي ملف في الاتاتش يقبل التحديث ايضا

وايضا ارجووكم التعديل في الكود اذا كان هناك شي ناقص الكود شغال معاي تمام بس اذا كان شيء ناقص او يحتاج التعديل