AYUDA CON EVENTO KeyDown VB 08

[madriz_rd]

hola que tal saludos a todos, mi problema es el siguiente. Tengo el sig. codigo

Código vb:

Private Sub form_busqueda_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'id = ""
        con = New MySqlConnection()
        con.ConnectionString = "server=localhost;user id =root;password=123456;database=cvi_campesino"
        con.Open()
        data.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
        'creamos el adaptador 
        ada = New MySqlDataAdapter(cadconsul, con)
        'creamos el dataset
        datase = New DataSet
        ada.Fill(datase, "productos")
        'asignar el dataset al datagrid
        data.DataSource = datase
        data.DataMember = "productos"
    End Sub
 
    Private Sub data_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles data.KeyDown
        Dim idxrow As Integer = data.CurrentRow.Index
        If e.KeyData = Keys.Return Then
            id = data.Rows(idxrow).Cells(0).Value
            Me.Hide()
        Else
            If e.KeyData = Keys.Escape Then
                Me.Hide()
            End If
        End If
    End Sub
End Class
 

el problema es que cuando se ejecuta el programa y se manda a llamar la primera ves este form solo se ejecuta la parte del Private Sub form_busqueda_Load(By
la otra parte la del evento keydown (Private Sub data_KeyDown) no se ejecuta hasta la segunda ves que se llama
agradesere la ayuda prestada gracias