Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Wird ausgelöst, wenn die Sitzung gestartet wird.
        Session.Add("urConnectionString", "Data Source=nbsrc01;User" & _
          "Id=tester;Password=tester;Initial Catalog=projects")
    End Sub

 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ' Hier Benutzercode zur Seiteninitialisierung einfügen
        Dim sql, con
        sql = "select em_name from tester.employees"
        con = Session("urConnectionString")
 
        Dim connection As New System.Data.SqlClient.SqlConnection(con)
        connection.Open()
 
        Dim my_server As New System.Data.SqlClient.SqlCommand(sql, connection)
        Dim my_reader As System.Data.SqlClient.SqlDataReader
        my_reader = my_server.ExecuteReader
 
        my_reader.Read()
        Me.TextBox1.Text = my_reader.GetSqlString(0).Value
 
    End Sub

Gru?
SR