The Weird and The Wonderful

Sub SomeSub()
    Dim rs As Recordset
    Dim tblname As String
    Dim i As Integer

    On Error GoTo Err_Handler

    tblname = "Table1"

    For i = 0 To 1
        Set rs = db.OpenRecordset("SELECT * FROM " & tblname & " WHERE ... ")
    
        ' Code to process records here
        ' Including...

NextTable:

        tblname = "Table2"
    Next i

    ' Remainder of code

    Exit Sub

Err_Handler:

    ' Code to log error
    Resume NextTable   ' Note that there's no real error-checking, just logging.
End Sub

Sub SomeSub()
    ' Replacement for above
    ProcessRecords "Table1"
    ProcessRecords "Table2"
End Sub

Sub ProcessRecords(tableName AS String)
    ' Code to process records here
    ' When errors occur, can simply return (ideally after some real error-checking)
End Sub

class DoofusCode {
  private int first;
  private String second;

  // more stuff [tm]

  public void Method()
  {
    if (IsFirst(first))
      UpdateSecond(out second);
  }

  private static bool IsFirst(int first)
  {
    // more stuff [tm]
    return answer;
  }

  private static void IsFirst(out String second)
  {
    second = "Second";
  }
}