سؤال حول Form الرجاء المساعدة

السلام عليكم ..

الرجاء المساعدة ياخوان

واجهني مشكلة دوختني وهي

عندما نقوم ب عمل

مثلا ..

friend sub x()

مجموعة اكواد

end sub

فاذا اردنا استدعاء x فعلينا اولا تعريف متغير من نوع form

dim frm as new form1

لحد هسا ماشين تمام ..

بعد ذلك

frm.x()

ولحد هسا ماشين تمام

بعد ذلك اش ماراح يتنفذ داخل X لاتظهر اي نتيجة في الفورم

لذلك قلتو يجب ان اسوي

frm.show()

بس من انفذ frm.show يدور البرنامج بحلقة مفرغة

فاتمنى ان تساعدوني حيث انا اريد انو نتيجة x تظهر على الفورم ..

شكراا

ملاحظة هذا هو كود البرنامج

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim frm As New Form1()
        frm.zaid()
        frm.Show()
    End Sub

Friend Sub zaid()
        Dim con As New OleDb.OleDbConnection()
        Dim cmd As New OleDb.OleDbCommand()
        Dim path As String
        path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + VB6.GetPath + "\database.mdb;Mode=Share Deny None;Persist Security Info=False"
        con.ConnectionString = path
        con.Open()
        Dim sql As String
        sql = "select name from student"
        cmd.Connection = con
        cmd.CommandText = sql
        Dim rd As OleDb.OleDbDataReader
        rd = cmd.ExecuteReader
        Do While rd.Read = True
            Combo2.Items.Add(rd.GetString(0))
            txtname.Text = rd.GetString(0).ToString
        Loop
        Combo2.Text = txtname.Text.ToString


    End Sub