Erro ao executar consulta ao banco de dados

Olá pessoal, como falei no ultimo tópico....eu voltei rsrs :)

Bom meu novo problema é com algo que eu ja havia feito antes, mas que agora está dando erro e não estou entendo o motivo.

o erro acontece ao montar um datareader que vai ser utilizado para preencher um formulario.

segue a imagem do erro e da query.

/applications/core/interface/imageproxy/imageproxy.php?img=http://s23.postimg.org/55k66z67b/erro.png&key=630d5080d6fe1c2b6a979bc225a0fec6208d9cd164fa7921a7010aac2a3638b5" alt="erro.png" /> /applications/core/interface/imageproxy/imageproxy.php?img=http://s23.postimg.org/x4ebxu7tz/query.png&key=594da29a9d9ef85688c15f94afac2fae7f9ae77f43f311b53d7a9def7bab3e0b" alt="query.png" />

Meu código é o seguinte:

Sub carrega()
Dim sql As String
Dim conn As New OleDbConnection()
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Dim cod As Integer

cod = lb_codigo.Text
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\same_database.mdb"
conn.Open()

 sql = "Select Código, Descricao, Tipo, Prazo, Custo, Venda, Unidade, movimenta, Minimo, Estoque, Reserva from Produtos where Código = '" + lb_codigo.Text + "'"
 cmd = New OleDbCommand(sql, conn)
 dr = cmd.ExecuteReader
 While dr.Read
 tb_descricao.Text = dr("Descrição").ToString
 cb_tipo.Text = dr("Tipo").ToString
 cb_prazo.Text = dr("Prazo")
 tb_custo.Text = dr("Custo")
 tb_preco.Text = dr("Venda")
 cb_unidade.Text = dr("Unidade")
 End While
 conn.Close()

 End Sub

Ainda está incompleto mas o erro acontece antes de chegar ao fim do código que escrevi.

Alguem pode me dar uma luz?