Solo una observación...
Si la consulta solo va a regresar un registro no le veo sentido usar un while.. si lo podemos sustituir por un IF..
ejemplo:
Cita: myReader = miccommand.ExecuteReader
if myReader.Read
txtRef.Text = myReader("fldTAsset")
End If
Por cierto.. estoy de acuerdo con lo que dice Jose_minglein2, verifica que tengas un conexion válida y que la tengas abierta antes de hacer el ExecuteReader
Salu2