Hola buenas noches:
Yo lo haria de la siguiente forma, con un dataAdapter, del siguiente modo:
Código vb:
Ver originaldataAdapter = New MySqlDataAdapter(qbusca , conexion)
despues llenas el dataAdapeter:
Código vb:
Ver originaldataAdapter.Fill(dataSet, "materiales ")
y despues cuentas cuantas tuplas tiene el dataSet:
Código vb:
Ver originalcuantos=dataSet.Tables("pelicula").Rows.Count
en la varible cuantos, obtendras el numero de tuplas que tiene ese concreto cod, si es 0 es que no hay, si es mas de uno, pues que existe.
Lo que tampoco entiendo muy bien es de donde sacas esa consulta sql, utilizas la funcion agregada sum, que no tiene mucho sentido, funcionaria bien o deberia, pero bastaria(y yo creo que quedaria mas limpio) con poner:
Código SQL:
Ver original"select codigo from materiales where codigo = '" & cod & "'"
Espero haberte ayudado
Un saludo