The Weird and The Wonderful

Private Sub ShowName(ByVal id As String)

	Dim daNames As New SqlDataAdapter("SELECT ID, NAME FROM TBL_NAMES", ConnectionString)

	Dim dsNames As New DataSet("NAMES")
	daNames.Fill(dsNames, "NAMES")

	Dim drNames As DataRow = dsNames.Tables(0).NewRow
	drNames("ID") = -1
	drNames("NAME") = ""

	dsNames.Tables(0).Rows.InsertAt(drNames, 0)

	If dsNames.Tables("NAMES").Rows.Count > 0 Then
		Try
			Dim drs() As DataRow = dsNames.Tables(0).Select("ID = " & id)
			txtName.Text = drs(0).Item("NAME").ToString
		Catch e As Exception
			'
		End Try
	Else
		txtName.Text = ""
	End If

End Sub

#if (LIBRARYFLAG)
    using Product.Client;
#else
    using Product.Server;
#endif
using Product.Server;

private void Form1_KeyDown(object sender, KeyEventArgs e)
{
    if ((e.KeyCode == System.Windows.Forms.Keys.Up))
    {
        // Subir oscilador
        // Subir
    }
    if ((e.KeyCode == System.Windows.Forms.Keys.Down))
    {
        // Bajar oscilador
        // Bajar
    }
    if ((e.KeyCode == System.Windows.Forms.Keys.Left))
    {
        // Izquierda
    }
    if ((e.KeyCode == System.Windows.Forms.Keys.Right))
    {
        // Derecha
    }
    if ((e.KeyCode == System.Windows.Forms.Keys.Enter))
    {
        // Entrar
    }

}