Cn = New SqlConnection(sCn)
                Cn.Open()
 
                'SQL Statement
                Cmd = New SqlCommand("Select * from Bauwerk_BWK where" & _
                  "PTI_ID_EIGENTUEMER = '" & Session("PTI") & "'", Cn)
 
                'Daten aus DB lesen
                Dr = Cmd.ExecuteReader
 
                Do While Dr.Read
 
 
                Loop
 
                Dr.Close()
                Cn.Close()