Loop through recordset and fill form fields.

rsloop.vb

Sub Loop_RS()

Dim siteSQL as String
Dim siteRS As DAO.Recordset
siteSQL = "SELECT * FROM Site WHERE Site.Site_ID = " &  Me.Site_ID & ";"
Set siteRS = CurrentDb.OpenRecordset(siteSQL, dbOpenDynaset)

For Each fld in siteRS.Fields
  fld.Value = Me.Controls(fld.Name).Value
Next fld
siteRS.Update
siteRS.Clsoe

End Sub