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