MYsql ERROR

o erro ocorre na linha da clausula WHERE Id = " & objdgv.ID

Private Sub Populate_Form()

Dim conn As New MySqlConnection("server = localhost;userid=root;password=jcbest;database=wrcopiadoras1")

Dim comm As MySqlCommand

Dim drmysql As MySqlDataReader

Dim sql As String

Dim objdgv As ListItemclientes

Try

objdgv = CType(ltbclientes.SelectedItem, ListItemclientes)

 sql = "SELECT Id," & _

 "NOME," & _

 "ENDERECO," & _

 "cidade," & _

 "Bairro," & _

 "ESTADO," & _

 "CNPJ," & _

 "IE," & _

 "Cep," & _

 "Telefone," & _

 "Responsavel," & _

 "Contrato," & _

 "cobertcont," & _

 "email" & _

 "FROM clientes WHERE Id = " & objdgv.ID

 

 conn = New MySqlConnection("server = localhost;userid=root;password=jcbest;database=wrcopiadoras1")

 conn.Open()

 comm = New MySqlCommand(sql, conn)

 drmysql = comm.ExecuteReader()

 

 If drmysql.Read Then

 txtidentificacao.Text = drmysql.Item("Id").ToString

 txtnome.Text = drmysql.Item("NOME").ToString

 txtend.Text = drmysql.Item("ENDERECO").ToString

 txtcidade.Text = drmysql.Item("cidade").ToString

 txtbairro.Text = drmysql.Item("bairro").ToString

 txtcnpj.Text = drmysql.Item("CNPJ").ToString

 mtbcep.Text = drmysql.Item("cep").ToString

 txtestado.Text = drmysql.Item("ESTADO").ToString

 txtie.Text = drmysql.Item("IE").ToString

 mtbtelefone.Text = drmysql.Item("telefone").ToString

 txtresponsavel.Text = drmysql.Item("Responsavel").ToString

 txtcontrato.Text = drmysql.Item("Contrato").ToString

 txtcobertcont.Text = drmysql.Item("cobertcont").ToString

 txtemail.Text = drmysql.Item("email").ToString

 End If

 drmysql.Close()

 conn.Close()

 comm.Dispose()

 conn.Dispose()

 Catch e As MySqlException

 MsgBox(e.Message, MsgBoxStyle.Critical, "MySQL Error")

 Catch e As Exception

 MsgBox(e.Message, MsgBoxStyle.Critical, "General Error")

 End Try

 End Sub