If Statement - not working

I am a novice user of access and not a programmer.  

I have a form named frmDeals and when I change the status of my combo box on frmDeals to "New Deals" I want a text box on another form (with underlying table tblLetterOfCredit) to update automatically with the current date of this new deal.  If there is alread a date in the field then  I do not want to override it.  

Here are some deatails that i think you would need for the code:

combo box name on frmDeals that contains the status:  Status
text box name on frmLetterOfCredit that needs updating:  NewDealsDate  and DateLineOpened
form that has the text box NewDealsDate:  frmLetterOfCredit
underlying table of frmLetterofCredit:  tblLetterOfCredit

The first part of the code below works for the status Like"New Deals*" but the one below it does not work for some reason.  The code below "New Deals*"  section that starts at like "Funded*" is to do the exact same thing as what the "New Deals*" part does.  "New Deals*"  section works good but the section below does not.  I believe that you are to remove the dims and just change the names of the fields that I want to change.  The only change is NewDealsDate to DateLineOpened.  

Here it is:  

Private Sub Status_AfterUpdate()

If Me.Status.Value Like "New Deals*" Then
   
    Dim intDealID As Variant
    Dim rsdeals As DAO.Recordset

    Set intDealID = Forms!frmDeals!DealID

    Set rsdeals = CurrentDb.OpenRecordset("SELECT * FROM tblLetterOfCredit ")
 
        rsdeals.MoveFirst
        rsdeals.FindFirst "[DealID] =" & intDealID
    If Not rsdeals.NoMatch Then
    If IsNull(rsdeals!NewDealsDate) Then
            rsdeals.Edit
            rsdeals!newdeals = True  'this will check mark the check box
            rsdeals!NewDealsDate = Date
            rsdeals.Update
        End If
        End If
   rsdeals.Close
   
   
   NEXT PART:
   
   
   If Me.Status.Value Like "Funded*" Then
   
 'this code is not working for some reason.  The one above does work
    Set intDealID = Forms!frmDeals!DealID

    Set rsdeals = CurrentDb.OpenRecordset("SELECT * FROM tblLetterOfCredit ")
 
        rsdeals.MoveFirst
        rsdeals.FindFirst "[DealID] =" & intDealID
    If Not rsdeals.NoMatch Then
    If IsNull(rsdeals!DateLineOpened) Then
        rsdeals.Edit
        rsdeals!Funded = True
        rsdeals!DateLineOpened = Date
        rsdeals.Update
 End If
End If
   rsdeals.Close

 End Sub