VB 2010 da şartlı ve değere bağlı veri aktarımı

[drummers]

Dim xls As New Excel.Application
   Dim w As Workbook = xls.Workbooks.Open("C:\Documents and Settings\drm\Desktop\sorum\drmkayit\bin\Debug\deneme.xls")
        xls.Visible = True
        w.Sheets("Sayfa1").range("A1") = TextBox1.Text
        w.Sheets("Sayfa1").range("D5") = TextBox2.Text
        w.Sheets("Sayfa1").range("E5") = TextBox3.Text

Bu kod ile "Kayitformu.vb" isimli formumdaki textbox verilerini excel dosyasına aktarabiliyorum. Birkaç sorum olacaktı.

Sorum 1-) 2 ayrı formdan aynı anda tek excel dosyasına textbox verilerini aktarmak istiyorum; şöyleki

Üsteki koda ilaveten combobox11 de seçili müşavirinde formundaki verileri aynı excel dosyasına aktaracak

Örnek vereyim:

"Kayitformu.vb" daki textbox verilerini "Sayfa1" deki alanlara aktardık
w.Sheets("Sayfa1").range("A1") = TextBox1.Text
w.Sheets("Sayfa1").range("D5") = TextBox2.Text
w.Sheets("Sayfa1").range("E5") = TextBox3.Text

Combobox11 den müşavirimizi seçtik ve "Musavir.vb" deki textbox lardaki verileride şöyle aktaracak

w.Sheets("Sayfa1").range("G1") = TextBox1.Text
w.Sheets("Sayfa1").range("K5") = TextBox2.Text
w.Sheets("Sayfa1").range("J5") = TextBox3.Text

Şeklinde.

Sorum 2-) "Musavir.vb" de müşaviri kaydettikten hemen sonra datayı güncellemesi ve programı açıp kapatmama gerekmemesini ve bu müşavir isminin "Kayitformu.vb" da hemen görünmesini istiyorum.

Biraz uzun oldu farkındayım. İlgileneceklere teşekkürler