Private Sub InsertItems(ByVal OrderDate As String, ByVal OrderCustomer As String, ByVal OrderAcctNum As String, ByVal OrderType As String, ByVal OrderSoNum As String, ByVal OrderItemPartNum As String, ByVal OrderItemPartDesc As String, ByVal OrderItemQty As String, ByVal OrderItemQtyRec As...