The Weird and The Wonderful

Private Sub Run_Click()
 On Error Resume Next
 OLE1.SourceDoc = pat & Grid
 OLE1.SourceItem = pat & Grid
 OLE1.Action = 1
 DoEvents
 OLE1.Action = 7
 DoEvents
 OLE1.Action = 10
End Sub

''' <summary><br />
''' Initializes the trouble ticket display for stations<br />
''' </summary><br />
Public Sub initalizeTTick(ByVal stationID As String)<br />
    'Database <br />
    Dim db As New LabConsoleDB()<br />
<br />
    Try<br />
        Dim dr As DataRow = db.StationDetailedRecord(stationID)<br />
        If dr Is Nothing Then Return<br />
<br />
        'Populate the textbox for the trouble ticket<br />
        txtTTick.Text = "Location:" & vbTab & stationID("stnName").ToString().ToUpper() & vbCrLf<br />
        txtTTick.Text = txtTTick.Text & "Model:" & vbTab & dr("machManuf").ToString() & " " & dr("machModel").ToString() & vbCrLf<br />
        txtTTick.Text = txtTTick.Text & "Serial:" & vbTab & stationID("machSerial").ToString() & vbCrLf<br />
        txtTTick.Text = txtTTick.Text & "ICN:" & vbTab & dr("machICN").ToString() & vbCrLf<br />
        txtTTick.Text = txtTTick.Text & "" & vbCrLf<br />
        txtTTick.Text = txtTTick.Text & "Problem:" & vbTab & vbCrLf<br />
        lblStnName.Text = dr("stnName").ToString().ToUpper()<br />
<br />
        'Show the form<br />
        Me.StartPosition = FormStartPosition.CenterScreen<br />
        Me.Show()<br />
    Catch<br />
        Call initalizeTTick(stationID)<br />
    End Try<br />
End Sub