Dim rst As New ADODB.Recordset
    Dim fld As ADODB.Field
    Dim Source As String
    If CLng(Me.ID) =  0  Then
        rst.Open  "Table" , CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        rst.AddNew
    Else
        Source =  "SELECT * FROM [Table] WHERE [ID] = "  & Me.ID
        rst.Open Source, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    End If
    On Error Resume Next
    For Each fld In rst.Fields
        If fld.Name <>  "ID"  Then
            rst.Fields(fld.Name).Value = Me(fld.Name).Value
        End If
    Next
    On Error GoTo  0 
    rst.Update
    rst.Close