The code I am converting is currently sat in a ms access database. Some of the code I will be keeping on the client side but I want to do all the record editing on the server side: Select Case Forms.frm_log_testing.NCStatus Case 1 'initial notification170 With rst180 .Edit190 ![Day Entered] = Me.DteReport200 ![UserIDMoved] = Forms.frmhidden.txtSecurityID210 .Update220 End With230 Case 2 'Awaiting Acceptance240 With rst250 .Edit260 ![StatusType] = Me.NCStatus270 ![Day Entered] = Date 280 ![UserIDMoved] = Forms.frmhidden.txtSecurityID290 .Update300 End With310 strEmail1 = "The nonconformance event you reported with ID : " & Me.NCC_ID & " has now moved to the following status: Awaiting Acceptance <p>" _ & "Regards, <br> NCC Log" 320 If Len(DLookup("[ReportedEmailAddy]", "tbllog", "[NCC_ID]=" & Me.NCC_ID)) > 0 Then 'if an email addres is found then get on with it330 Call EmailIT(strEmail1, "Nonconformance event feedback for case ID: " & Me.NCC_ID, strEmailAddy = DLookup("[ReportedEmailAddy]", "tbllog", "[NCC_ID]=" & Me.NCC_ID), "NCCLog-DoNotReply@Siemens.com")340 Else 'if not then do nothing dont bother sending out a email350 End If 360 Case 3 ' Action Being Taken370 With rst380 .Edit390 ![StatusType] = Me.NCStatus400 ![Day Entered] = Date410 ![UserIDMoved] = Forms.frmhidden.txtSecurityID420 .Update430 End With440 strEmail2 = "The nonconformance event you reported with ID #: " & Me.NCC_ID & " has now moved to the following status: Action Being Taken <p>" _ & "The case is now under the ownership of " & Me.NCOwner.Column(1) & "<p> Regards, <br> NCC Log" 450 If Len(DLookup("[ReportedEmailAddy]", "tbllog", "[NCC_ID]=" & Me.NCC_ID)) > 0 Then460 Call EmailIT(strEmail2, "Nonconformance event feedback for case ID: " & Me.NCC_ID, DLookup("[ReportedEmailAddy]", "tbllog", "[NCC_ID]=" & Me.NCC_ID), "NCCLog-DoNotReply@Siemens.com")470 Else480 End If 490 Case 4 ' Awaiting Review500 With rst510 .Edit520 ![StatusType] = Me.NCStatus530 ![Day Entered] = Date 540 ![UserIDMoved] = Forms.frmhidden.txtSecurityID550 .Update560 End With