Private Sub Form_AfterInsert()
	Dim ctl As Control
	Dim strFields As String
	On Error Resume Next
	strFields = ";" & Me!txtAutoFillFields & ";"
	For Each ctl In Me.Controls
		If strFields = "" Or InStr(strFields, ";" & ctl.Name & ";") > 0 Then
			ctl.DefaultValue = """" & ctl.Value & """"
		End If
	Next ctl
End Sub