Cita: P pero aun reporta error... :(
Mira, por lo que veo en tu query te falta un espacio
Cambia ésto:
Cita: Dim com As New SqlCommand("select cod_unidad from producto" & _
"where cod_producto=@c3", conexion)
Por ésto:
Cita: Dim com As New SqlCommand("select cod_unidad from producto " & _
"where cod_producto=@c3", conexion)
Puse un espacio en blanco despues de producto
Prueba y nos cuentas que tal
