I am trying to be able to pull up the values of a part number via a combo 
box, and update the fields if needed.

For some reason when I click save, nothing gets updated.

Here is my code:

Private Sub Form_Open(Cancel As Integer)

    Dim db As DAO.Database
    Dim rsPartNumber As DAO.Recordset
    Dim strPartNumber As String
    
    strPartNumber = "SELECT Parts.PartNumberID, Parts.PartNumber" & _
    " FROM Parts" & _
    " ORDER BY Parts.PartNumber"
    
    Set rsPartNumber = CurrentDb().OpenRecordset(strPartNumber)
    
        With rsPartNumber
            Me.PartNumber.RowSource = strPartNumber
            .Close
            End With
    
End Sub

Private Sub PartLookup_Click()

    Dim db As DAO.Recordset
    Dim rsParts As DAO.Recordset
    Dim strParts As String
    
    strParts = "SELECT Parts.PartNumberID, Parts.PartNumber, 
Parts.RevLevel, Parts.Description" & _
    " FROM Parts" & _
    " WHERE Parts.PartNumberID =" & Forms!fmPartLookup!PartNumber
    
    Set rsParts = CurrentDb().OpenRecordset(strParts)
    
        With rsParts
            Me.RevLevel = !RevLevel
            Me.Description = !Description
            .Close
            End With
            
End Sub


Private Sub Save_Click()

    Dim db As DAO.Recordset
    Dim rsPartSave As DAO.Recordset
    
    
    Set rsPartSave = CurrentDb().OpenRecordset("Parts")
    
        With rsPartSave
            .Edit
                !RevLevel = Me.RevLevel
                !Description = Me.Description
            .Update
            .Close
        End With

End Sub

Please Help.

Thanks,

Chris