Erro ao carregar dados pelo datagrideview

[TobiasFranca]

Boa noite!!

Pessoal estou desenvolvendo uma aplicação no visual studio 2015 community e estou aprendendo os comandos nos videos do youtube, porém fiz um comando para carregar as caixas de texto de um formulário quando o usuário seleciona um registro no datagrideview e clica no botão "consultar", fiz como exemplo de um vídeo, "segue link: https://www.youtube.com/watch?v=s2Gb9pOUNU8", porém não funciona, quando clica no botão consultar aparece o seguinte erro: "Data type mismatch in criteria expression." e no visual studio fica marcado a linha 180 e uma janela conforme imagem em anexo. Grato pela ajuda.

Private Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
        Dim dr As OleDbDataReader = Nothing
        Using con As OleDbConnection = GetConnection()
            Try
                con.Open()
                Dim sql As String = "SELECT codigo, fantasia, razao, endereco, bairro, cidade, uf, cep, cnpj, telefone, email, logomarca FROM filiais WHERE codigo=" & DataGridView1.CurrentRow().Cells(0).Value
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                dr = cmd.ExecuteReader(CommandBehavior.SingleRow)
                If dr.HasRows Then
                    dr.Read()
                    txtCodigo.Text = dr.Item("codigo")
                    txtFantasia.Text = dr.Item("fantasia")
                    txtRazao.Text = dr.Item("razao")
                    txtEndereco.Text = dr.Item("endereco")
                    txtBairro.Text = dr.Item("bairro")
                    txtCidade.Text = dr.Item("cidade")
                    txtUF.Text = dr.Item("uf")
                    txtCEP.Text = dr.Item("cep")
                    txtCNPJ.Text = dr.Item("cnpj")
                    txtTelefone.Text = dr.Item("telefone")
                    txtEmail.Text = dr.Item("email")
                    If txtImagem.Image IsNot Nothing Then
                        txtImagem.Image.Dispose()
                    End If
                    Dim fsImagem As New FileStream("image.jpg", FileMode.Create)
                    Dim blob As Byte() = DirectCast(dr.Item("logomarca"), Byte())
                    fsImagem.Write(blob, 0, blob.Length)
                    fsImagem.Close()
                    fsImagem = Nothing
                    txtImagem.Image = Image.FromFile("image.jpg")
                    txtImagem.Refresh()
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
                dr.Close()
            End Try
        End Using
    End Sub
End Class

[wootzor]

O teu objecto txtImagem é uma Picture Box ou uma Text Box? 

Experimenta colocar um break point na linha 

dr = cmd.ExecuteReader(CommandBehavior.SingleRow)

E vê se está tudo correcto com a connection string e com a consulta em si.

[TobiasFranca]

txtImagem é uma Picture Box, a consulta e a connection string estão corretas(pelo menos fiz igual no vídeo e lá funcionou), não tenho muito conhecimento no assunto, coloquei o break point na linha e não obtive nenhum retorno que pudesse me ajudar com o problema.

Editado Novembro 5, 2015 por TobiasFranca

[wootzor]

Quando fizeste o debug, a variável dr estava preenchida?

[TobiasFranca]

Descobri o problema, o erro não está no código e sim no banco de dados, o campo ID esta como texto e não como numero, por isso o comando retorna um erro. De qualquer forma obrigado pela ajuda.