Abrir Formulario desde DataGridView

[Ausberto]

la busqueda no es lenta sino cuando cierro el formulario capturando la variable y poniendolo a la celda de datagridview, est es el codigo:

Código:

Private Sub Grilla_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Grilla.KeyDown
        If e.KeyCode = Keys.F4 Then
            NomFormu = Me.Name
            FBuscaArt.ShowDialog()
            Grilla.Rows(Grilla.CurrentRow.Index).Cells(0).Value = VarIdPro
            cod = VarIdPro
            prec = VarPrePro
            Grilla.Focus()
            Grilla.Rows(Grilla.CurrentRow.Index).Cells(0).Selected = True

        End If
    End Sub

repito la consulta para buscar el articulo no es lenta, sino al cerrar y capturar para ponerlo al datagrid