Private Sub Update_Click()

 Set mRS = New ADODB.Recordset
 mRS.ActiveConnection = frmMain.mConn

 If mymode = "0" Then     'update mode
        
    sqlstg = "select * from CSTSRVFL where fID='" & Trim(frmMain.currentID) & "'"
    mRS.Open sqlstg, , adOpenDynamic, adLockOptimistic
        
        
    mRS.Fields("ffirst") = Trim(frmDetail.txtFirst)
    mRS.Fields("flast") = Trim(frmDetail.txtLast)
    mRS.Fields("fcity") = Trim(frmDetail.txtCity)
    mRS.Fields("fstate") = Trim(frmDetail.txtState)
    mRS.Fields("fphone") = Trim(frmDetail.txtPhone)
    
    mRS.Update
    
    MsgBox "Record Updated!"
    
    mRS.Close
    Set mRS = Nothing
        
    frmMain.FillView
    Unload Me
    
  Else     'add mode
  
    mRS.Open "select * from cstsrvfl", , adOpenKeyset, adLockOptimistic

    mRS.AddNew

    mRS.Fields("ffirst") = Trim(frmDetail.txtFirst)
    mRS.Fields("flast") = Trim(frmDetail.txtLast)
    mRS.Fields("fcity") = Trim(frmDetail.txtCity)
    mRS.Fields("fstate") = Trim(frmDetail.txtState)
    mRS.Fields("fphone") = Trim(frmDetail.txtPhone)
    mRS.Fields("fid") = Format(Now, "mmddyyhhmmss")
        
    mRS.Update
    
    MsgBox "Record Added!"
    
    mRS.Close
    Set mRS = Nothing
        
    frmMain.FillView
    Unload Me

   End If
   
 End Sub