But not as in Where's Waldo ... those are seriously tough. I'm talking about the one in the back of the Highlights magazine that all dentists' and doctors' offices seem to have. You know, where it's a illustration of a cat in a tree, and you're supposed to find the cat? I love those ... you get such a feeling of accomplishment.

But anyway, let's see if you can find the WTF in todays VB6 code from Tim C ...

Public Sub cmdRefresh_Click()
 lblBlah.Caption = RefreshBlahBlah() 
End Sub

'ED: Snip
Public Function RefreshBlahBlah() As String 
    ' 
    ' Display the last update applied to the database and when. 
    ' Called on Form Load and after each update. 
    ' 
    '      No software updates have been applied. 
    '      On 8 March at 8:00am you processed update 4. 
    ' 
    Dim s As String
    
    On Error Resume Next 
    On Error GoTo 0 
    
    If SelectSQL("LastUpdateSQL") = 0 Then 
        ' Never done an update 
        s = "No software updates have been applied." 
    Else 
        s = "On " & _ 
            Format(SelectSQL("LastSuccessfulUpdateSQL"), "d Mmmm") & _ 
            " at " & _ 
            Format(SelectSQL("LastSuccessfulUpdateSQL"), "h:mm am/pm") & _ 
            " you processed update " & _ 
            SelectSQL("LastUpdateSQL") & "." 
    End If 
    RefreshBlahBlah = s 
    
End Function 

Private Function SelectSQL(col) As String
 'ED: Snip opening a connection to the database, opening a recordset,
 '    returning the requested column
End Function

[Advertisement] BuildMaster allows you to create a self-service release management platform that allows different teams to manage their applications. Explore how!