(Este seria el codigo para mostrar la informacion de una tabla) el error seria que se cae a null si no hay datos en la tabla y yo quiero que me muestre un mensaje de no existir datos.
Call conexion(cnn1)
'Text1.Enabled = True
Label1 = cod
rs.Open "select entorno from Describir_plan_general where Código_descripción like '" & Trim(Label1) & "%'", cnn1
Text1.Text = rs.Fields(0)
rs.Close
Text1.Locked = True