Dmax
Maybe I've got the wrong end of the stick here, but it could be that
MyDmax = Nz(DMax("[WLngNo]", "testWLog", "Preparedby='" & Environ("Username") & "'"), 0) + 1
should be replaced by
MyDmax = Nz(DMax("[WLngNo]", "testWLog"), 0) + 1
i.e. take out
"Preparedby='" &...