if Lector.Eof then TextBox1.Text="- -" msgbox "No hay datos" else TextBox1.Text = Lector.GetString(0) 'Aqui me truena end if