THREADING

Hola, estoy tratando de hacer una demo pekeña sobre hilos, el ejemplo
popuesto es el de una pantalla que con pulsar un boton consulte una tabla y
llene una grilla pero mientras trae la data que pueda digamos abrir otro
formulario o hacer otro trabajo
hasta le momento no me ha ligado pero me gustaria saber que esta faltando
para que salga bien
aki va le codigo
Imports System.Threading

en el boton 1 tengo



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim td As New Thread(AddressOf Ejecutar)

td.Start()

End Sub

Sub Ejecutar()

cn.Open()



Dim da As New SqlDataAdapter("select * from EXP_VISTA_COMPROBANTE", cn)

da.Fill(ds)

Me.DataGrid1.DataSource = ds.Tables(0)

cn.Close()

End Sub

en el cevento clik del 2do boton es donde trato de hacer otras tareas como
por ejemplo abrir instancias de otros forms



algun tip