Sub btnLoginClick(ByVal Sender As Object, ByVal e As EventArgs)
       Call Login()
End Sub

    Sub Login()
        Dim strSQL As String
        Dim strLoginName As String
        Dim strPW As String
        Dim blnIsAuthenticated As Boolean

        strLoginName = txtUserName.Text.Replace("'", "''")
        strPW = pw.Text.Replace("'", "''")
        blnIsAuthenticated = False

        
        Call Connection_Establish()

        strSQL = " select * from SW_USER " & _
                   " where LOGIN = '" & strLoginName & "'" & _
                   " and PASS =  '" & strPW & " '"

        Comm.CommandText = strSQL
        'Comm.CommandType = CommandType.Text
'###############################################
        Dim objRead As OracleClient.OracleDataReader
        objRead = Comm.ExecuteReader
'######################### PROBLEMA! ##############
        If objRead.Read Then
            blnIsAuthenticated = True
        Else
            blnIsAuthenticated = False
        End If

        If blnIsAuthenticated Then
            lblErrOutput.Text = "Ja!"
            Session("ID_SWU") = objRead("ID_SWU")
            Session("SWU_CATEGORY") = objRead("SWU_CATEGORY")
            Session("SWU_UID") = objRead("SWU_UID")
            Session("FIRSTNAME") = objRead("FIRSTNAME")
            Session("LASTNAME") = objRead("LASTNAME")
            objRead.Close()
            Call Connection_Terminate()
        Else
            lblErrOutput.Text = "Nein!"
            objRead.Close()
            Call Connection_Terminate()
            'lblErrOutput.Text = "Login or Password false!"
        End If
    End Sub