The Weird and The Wonderful

Set rstMain = New ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = "spSELocationForSageImport"
Set prm = cmd.CreateParameter("@LocationCode", adVarChar, adParamInput, 20, "Sage")
cmd.Parameters.Append prm
cmd.CommandType = adCmdStoredProc
rstMain.Open cmd, , adOpenDynamic, adLockOptimistic, adCmdStoredProc

With rstMain
    Do While Not .EOF
        strLocation = ![Location]
        .MoveNext
    Loop
End With
Set rstMain = Nothing

txtDateCreated = Month(Now()) & "/" & Day(Now()) & "/" & Year(Now())

int    t1   = 0;
int    t2   = 0;
string temp = "";
string orig = "";

if (lblSortOrder.Text==e.SortExpression)//if they click the same column reverse order
{
    Trace.Write("asdf","in order switcher");
    lblSortOrder.Text +=" DESC";
}
else if (lblSortOrder.Text.IndexOf(e.SortExpression)== -1)//if they click a different column use both sort terms
{
    Trace.Write("asdf","in column adder");
    temp=e.SortExpression;
    temp+=", "+lblSortOrder.Text;
    lblSortOrder.Text=temp;
}
else if (lblSortOrder.Text.IndexOf(',')!=-1)//if the first two fail and is a multi column search
{
    if (lblSortOrder.Text.IndexOf(e.SortExpression)!=-1)//if expression is in the sort string, make it primary and reverse its order
    {
        orig=lblSortOrder.Text;
        t1=orig.IndexOf(e.SortExpression);
        t2=orig.IndexOf(",",t1)-t1;

        if(t2>=0)
        {
            temp=orig.Substring(t1,t2);
        }
        else
        {
            temp=orig.Substring(t1);
        }
        //Trace.Write("orig after substring",orig);
        //Trace.Write("temp",temp);

        if(temp.IndexOf("DESC")!=-1)
        {
            orig=orig.Remove(t1,temp.Length);
            temp=temp.Remove(temp.IndexOf("DESC"),4);
            temp=temp.Trim();
            //Trace.Write("remove desc",temp);
        }
        else
        {
            orig=orig.Remove(t1,temp.Length);
            temp+=" DESC";
            temp=temp.Trim();
            //Trace.Write("add desc",temp);
        }
        orig=orig.Trim();
        lblSortOrder.Text=temp+","+orig;
    }//end if sort expression contained in sort string
    else
    {
        lblSortOrder.Text=e.SortExpression;
        //Trace.Write("???","you should never see this");
    }
}//end multi column else if
else
{
    lblSortOrder.Text=e.SortExpression;
}//end sort ifs

//remove any messed up commas
lblSortOrder.Text=lblSortOrder.Text.Replace(",," , ",");
lblSortOrder.Text=lblSortOrder.Text.Replace(", ," , ",");

//remove all strings after second column
t1=lblSortOrder.Text.IndexOf(",",lblSortOrder.Text.IndexOf(",")+1);
if(t1>10)
{
    lblSortOrder.Text=lblSortOrder.Text.Remove(t1,(lblSortOrder.Text.Length-t1));
}

• the program was using invisible pop-up windows as temporary data buffers to implement wizard-like operations in the user-interface, and never deallocating them.
• every variable was global
• there were no data structures anywhere for anything
• there were no functions other than those required by the GUI
• several functions were over 75 pages long - that's about 4500 lines of code in a single function
• the level of code redundancy was incredible; it was common to see the same 5-10 lines of code repeated several dozen times within the same function