Try
Cn.Open()
DR = cmd.ExecuteReader()
Do While DR.Read()
' Se ele encontrou o registro, preechemos a tela

' O objeto DR, da classe OleDbDataReader, traz cada campo do SELECT, numerado
' na ordem da consulta, e vamos alocar ele a cada componente da tela.

' Como este formulário será aplicado a outras tabelas, DR.getvalue retorna
' valor tanto de long, quanto integer ou byte

dgdPesquisa.Rows.Add(DR.GetInt32(0).ToString, DR.GetString(1).ToString)

Loop
DR.Close()

Catch ex As Exception
MessageBox.Show("Mensagem de Erro: " + ex.ToString + " - " + ex.Message)
Finally
' A conexão deve ser fechada tanto em caso de sucessor ou fracasso (Erro)
' Portanto usamos a clausula Finally
Cn.Close()
End Try
dgdPesquisa.Sort(dgdPesquisa.Columns(0), System.ComponentModel.ListSortDirection.Ascending)