طلب كود اضافة

لدى قاعدة بيانات بها  5  (Table1,2,3,4,5)  ليس بينهم علاقات جميعهم بهم عمود اسمه User name  و باقى الاعمدة مختلفة 

اريد كود لاضافة ال user name فى كل الجداول دفعة واحده 

الكود المستخدم 

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Try
            Dim SavInto As New OleDb.OleDbCommand
            Dim ConStr As String = _
            "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
            Application.StartupPath & "\Database.mdb"
            Dim Conn As New OleDbConnection(ConStr)
            SavInto.Connection = Conn
            SavInto.CommandType = CommandType.Text
            SavInto.CommandText = "INSERT INTO Table1(ID,Name,Address,Mobile,bill,user_name,Pasword,السنة,الشهر,اليوم,ملحوظة)" & _
            "values ('" & TextBox12.Text & "','" & TextBox13.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "','" & TextBox17.Text & "','" & TextBox18.Text & "','" & TextBox19.Text & "','" & ComboBox3.Text & "','" & ComboBox2.Text & "','" & ComboBox4.Text & "','" & TextBox9.Text & "') "
            Conn.Open()
            SavInto.ExecuteNonQuery()
            cmd2 = New OleDbCommand("insert into " & ComboBox3.Text & " (" & "user_name," & "" & ComboBox2.Text & _
                                        " ) values ('" & TextBox18.Text & "','" & _
                                        ComboBox4.Text & "')", Conn)
            cmd2.ExecuteNonQuery()
            Conn.Close()
            MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")

        Catch ex As Exception
            Exit Sub
        End Try
        Dim frm As New Form1
        Me.Hide()
        frm.Show()

    End Sub

انا لا اريد التعديل فى الكود اريد اضافة الكود الجديد ايه بدون تعديله لانه يعمل معى بشكل سليم ولكن اريد ان اضيف إليه هذا الطلب