Ortak fonksiyonda değişken kullanma

Merhaba.
Örneğimde yapmak istediğim şudur:
7001SevkPlaniF formunu açalım.
11.06.2012 sütununun en altına (seçerek) bir veri girelim.
Hata verdi.
Olay yordamına baktığımızda aşağıdaki kod yazılı..
Private Sub List16_AfterUpdate()
x = 1
Me.MySub1
End Sub
Burada "Me.MySub1" yerine kod sayfasındaki "Sub MySub1()" içeriğini yazdığımda sorun kalkıyor. Ama benim istediğim "x=1" değişkeninin "Sub MySub1()" yazılımı içinde sayısal bir değer olarak algılanması. Nasıl yapılabilir, değerli yardımlarınızı rica ederim.
Saygılarımla.

Option Compare Database altına
Public x As Integer
yazarsanız x değişkeni tüm sub larda geçerli olur...

Sn.POWER, çok teşekkür ederim