Why does this code not refresh the msfg_Object, the first time you run the programme but does on all subsequent entries?

Public Sub enter_temporary(ByCode As Integer, TimeIn As Date, Allowed As String)

Dim db_FZ As Database, rcs_VisitTrans As Recordset

Set db_FZ = Workspaces(0).OpenDatabase(datarecord)
Set rcs_VisitTrans = db_FZ.OpenRecordset("SELECT * FROM que_InHouse")

rcs_VisitTrans.AddNew

rcs_VisitTrans("memb_code") = ByCode
rcs_VisitTrans("vd_date") = Date
rcs_VisitTrans("vd_time") = TimeIn
rcs_VisitTrans("vb_allowed") = Allowed

rcs_VisitTrans.Update
rcs_VisitTrans.Close
db_FZ.Close
dat_InHouse.Refresh

End Sub

The Access tables are successfully updated via the query each time but the msfg display doesn't refresh on the first run through.