Dim dr as SqlDataReader
Dim cnn as SqlConnection = New SqlConnection(StrConexao)
Dim SQL as String = "Select Aluno.Nome From Aluno"
Dim cmd as SqlComand = New SqlComand (SQL, CNN)
cnn.open
dr = cmd.executereader
if dr.read then
me.textbox1.text = dr("Nome")
end if
dr.close
cnn.close
Saudações
Alan